changeset 102089:edc57b1b19f0

(rmail-mbox-from): Move to mail-utils. Update callers for name change.
author Glenn Morris <rgm@gnu.org>
date Wed, 18 Feb 2009 04:34:24 +0000
parents 7697cceb3a2b
children d5ecb9cfd7cb
files lisp/mail/rmailout.el
diffstat 1 files changed, 3 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Wed Feb 18 04:34:04 2009 +0000
+++ b/lisp/mail/rmailout.el	Wed Feb 18 04:34:24 2009 +0000
@@ -308,20 +308,7 @@
 		    "From: \\1\n"))
 		t)))))))
 
-;; Note this is duplicated in unrmail.el.
-(defun rmail-mbox-from ()
-  "Return a \"From \" line for the current message.
-The buffer should be narrowed to just the header."
-  (let ((from (or (mail-fetch-field "from")
-		  (mail-fetch-field "really-from")
-		  (mail-fetch-field "sender")
-		  "unknown"))
-	(date (mail-fetch-field "date")))
-    (format "From %s %s\n" (mail-strip-quoted-names from)
-	    (or (and date
-		     (ignore-errors
-		      (current-time-string (date-to-time date))))
-		(current-time-string)))))
+(autoload 'mail-mbox-from "mail-utils")
 
 (defun rmail-output-as-mbox (file-name nomsg &optional as-seen)
   "Convert the current buffer's text to mbox and output to FILE-NAME.
@@ -344,7 +331,7 @@
        "Mail-From\\|MIME-Version\\|Content-type"))
     (goto-char (point-min))
     (or (looking-at "From ")
-	(insert (rmail-mbox-from)))
+	(insert (mail-mbox-from)))
     (widen)
     ;; Make sure message ends with blank line.
     (goto-char (point-max))
@@ -451,7 +438,7 @@
 		;; rmail-convert-to-babyl-format errors if no From line,
 		;; whereas rmail-output-as-mbox inserts one.
 		(or (looking-at "From ")
-		    (insert (rmail-mbox-from)))
+		    (insert (mail-mbox-from)))
 		(rmail-output-as-babyl file-name noattribute))
 	    (rmail-output-as-mbox file-name noattribute)))
       ;; Called from an Rmail buffer.