diff lisp/gnus/gnus-art.el @ 102026:55b8ba83f74b

(rmail-output-to-rmail-file): Remove autoload added in previous change. (gnus-summary-save-in-mail): Use gnus-output-to-rmail rather than rmail-output-to-rmail-file.

--- a/lisp/gnus/gnus-art.el	Sat Feb 14 04:19:34 2009 +0000
+++ b/lisp/gnus/gnus-art.el	Sat Feb 14 05:09:13 2009 +0000
@@ -537,6 +537,7 @@
   :group 'gnus-article-saving
   :type 'regexp)
 
+;; Note that "Rmail format" is mbox since Emacs 23, but Babyl before.
 (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
   "A function to save articles in your favourite format.
 The function will be called by way of the `gnus-summary-save-article'
@@ -3876,12 +3877,12 @@
     (save-excursion
       (save-restriction
 	(widen)
+	;; Note that unlike gnus-summary-save-in-mail, there is no
+	;; check to see if filename is Babyl.  Rmail in Emacs 23 does
+	;; not use Babyl.
 	(gnus-output-to-rmail filename))))
   filename)
 
-;; FIXME deleted in Emacs 23.
-(autoload 'rmail-output-to-rmail-file "rmailout")
-
 (defun gnus-summary-save-in-mail (&optional filename)
   "Append this article to Unix mail file.
 Optional argument FILENAME specifies file name.
@@ -3897,7 +3898,7 @@
 	(if (and (file-readable-p filename)
 		 (file-regular-p filename)
 		 (mail-file-babyl-p filename))
-	    (rmail-output-to-rmail-file filename t)
+	    (gnus-output-to-rmail filename)
 	  (gnus-output-to-mail filename)))))
   filename)