Mercurial > emacs

changeset 88178:62610a0cbb6e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-output-to-rmail-file): Use `rmail-output-read-file-name'.
author Henrik Enberg <henrik.enberg@telia.com>
date Tue, 17 Jan 2006 02:35:04 +0000
parents cf8100a82c36
children 43ed67124917
files lisp/mail/rmailsum.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Tue Jan 17 02:34:35 2006 +0000
+++ b/lisp/mail/rmailsum.el	Tue Jan 17 02:35:04 2006 +0000
@@ -1494,7 +1494,7 @@
 starting with the current one.  Deleted messages are skipped and don't count."
   (interactive
    (progn (require 'rmailout)
-	  (list (rmail-output-read-rmail-file-name)
+	  (list (rmail-output-read-file-name)
 		(prefix-numeric-value current-prefix-arg))))
   (let ((i 0) prev-msg)
     (while
@@ -1513,7 +1513,6 @@
 	(if (< i n)
 	    (rmail-summary-next-msg 1))))))
 
-;;; mbox: ready
 (defun rmail-summary-output (&optional file-name n)
   "Append this message to Unix mail file named FILE-NAME.
 
@@ -1671,7 +1670,7 @@
 (defun rmail-summary-get-summary (n)
   "Return a summary line for message N."
   (let* ((keywords (rmail-desc-get-keywords n))
-	 (str (if keywords 
+	 (str (if keywords
 		  (concat "{ " (mapconcat 'identity keywords " ") " } ")
 		"")))
     (funcall rmail-summary-line-decoder