# HG changeset patch
# User Henrik Enberg <henrik.enberg@telia.com>
# Date 1137465304 0
# Node ID 62610a0cbb6e2d39283a0b17821bf560d4339348
# Parent  cf8100a82c36033563d2d4b650d2e4187c1c36b5
(rmail-summary-output-to-rmail-file): Use `rmail-output-read-file-name'.

diff -r cf8100a82c36 -r 62610a0cbb6e lisp/mail/rmailsum.el
--- 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