From 46e56adf58a33c3989616d0a3b920d9181838fce Mon Sep 17 00:00:00 2001 From: Henrik Enberg Date: Tue, 17 Jan 2006 02:35:04 +0000 Subject: [PATCH] (rmail-summary-output-to-rmail-file): Use `rmail-output-read-file-name'. --- lisp/mail/rmailsum.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 9b0b07c0dad..1819f4a2509 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1494,7 +1494,7 @@ A prefix argument N says to output N consecutive messages 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 @@ starting with the current one. Deleted messages are skipped and don't count." (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 @@ KEYWORDS is a comma-separated list of labels." (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 -- 2.39.2