after-load-alist.
* gnus-art.el (gnus-summary-save-in-file): Use property to specify
this function should save decoded articles.
(gnus-summary-write-to-file): Use property to specify this function
should save decoded articles and specify gnus-summary-save-in-file
should be used to save articles other than the first one when saving
many articles.
(gnus-summary-save-body-in-file): Use property to specify this
function should save decoded articles.
(gnus-summary-write-body-to-file): Use property to specify this
function should save decoded articles and specify
gnus-summary-save-body-in-file should be used to save articles other
than the first one when saving many articles.
* gnus-sum.el (gnus-summary-save-article): Simplify.
+2006-05-26 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * mm-util.el (mm-enrich-utf-8-by-mule-ucs): Don't edit
+ after-load-alist.
+
+ * gnus-art.el (gnus-summary-save-in-file): Use property to specify
+ this function should save decoded articles.
+ (gnus-summary-write-to-file): Use property to specify this function
+ should save decoded articles and specify gnus-summary-save-in-file
+ should be used to save articles other than the first one when saving
+ many articles.
+ (gnus-summary-save-body-in-file): Use property to specify this
+ function should save decoded articles.
+ (gnus-summary-write-body-to-file): Use property to specify this
+ function should save decoded articles and specify
+ gnus-summary-save-body-in-file should be used to save articles other
+ than the first one when saving many articles.
+
+ * gnus-sum.el (gnus-summary-save-article): Simplify.
+
2006-05-25 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-default-article-saver): Add
(gnus-output-to-mail filename)))))
filename)
+(put 'gnus-summary-save-in-file :decode t)
(defun gnus-summary-save-in-file (&optional filename overwrite)
"Append this article to file.
Optional argument FILENAME specifies file name.
(gnus-output-to-file filename))))
filename)
+(put 'gnus-summary-write-to-file :decode t)
+(put 'gnus-summary-write-to-file :function 'gnus-summary-save-in-file)
(defun gnus-summary-write-to-file (&optional filename)
"Write this article to a file, overwriting it if the file exists.
Optional argument FILENAME specifies file name.
gnus-current-headers nil 'gnus-newsgroup-last-directory))
(gnus-summary-save-in-file filename t))
+(put 'gnus-summary-save-body-in-file :decode t)
(defun gnus-summary-save-body-in-file (&optional filename overwrite)
"Append this article body to a file.
Optional argument FILENAME specifies file name.
(gnus-output-to-file filename))))
filename)
+(put 'gnus-summary-write-body-to-file :decode t)
+(put 'gnus-summary-write-body-to-file
+ :function 'gnus-summary-save-body-in-file)
(defun gnus-summary-write-body-to-file (&optional filename)
"Write this article body to a file, overwriting it if the file exists.
Optional argument FILENAME specifies file name.
(save-buffer (save-excursion
(nnheader-set-temp-buffer " *Gnus Save*")))
(num (length articles))
- (decode (and gnus-article-save-coding-system
- (memq gnus-default-article-saver
- '(gnus-summary-save-in-file
- gnus-summary-save-body-in-file
- gnus-summary-write-to-file
- gnus-summary-write-body-to-file))))
- (gnus-default-article-saver gnus-default-article-saver)
- ;; When saving many files using `gnus-summary-write-to-file'
- ;; or `gnus-summary-write-body-to-file', use it first and use
- ;; `gnus-summary-save-in-file' or `gnus-summary-save-body-in-file'
- ;; thereafter unless `gnus-prompt-before-saving' is `always'.
+ ;; Whether to save decoded articles or raw articles.
+ (decode (when gnus-article-save-coding-system
+ (get gnus-default-article-saver :decode)))
+ ;; When saving many articles, use the other function to save
+ ;; articles other than the first one if it is specified and
+ ;; `gnus-prompt-before-saving' is not set to `always'.
(saver2 (unless (eq gnus-prompt-before-saving 'always)
- (cdr (assq gnus-default-article-saver
- '((gnus-summary-write-to-file
- . gnus-summary-save-in-file)
- (gnus-summary-write-body-to-file
- . gnus-summary-save-body-in-file))))))
+ (get gnus-default-article-saver :function)))
+ (gnus-default-article-saver gnus-default-article-saver)
header file)
(dolist (article articles)
(setq header (gnus-summary-article-header article))
This function will run when the `un-define' module is loaded under
XEmacs, and fill the `utf-8' entry in `mm-mime-mule-charset-alist'
with Mule charsets. It is completely useless for Emacs."
- (unless (cdr (delete '(mm-enrich-utf-8-by-mule-ucs)
- (assoc "un-define" after-load-alist)))
- (setq after-load-alist
- (delete '("un-define") after-load-alist)))
(when (boundp 'unicode-basic-translation-charset-order-list)
(condition-case nil
(let ((val (delq