From a92122416bc9ae95235cfc0292fb075607da3134 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 16 Oct 2003 16:54:48 +0000 Subject: [PATCH] (rmail-convert-to-babyl-format): Fix the last change. --- lisp/mail/rmail.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index e1a180190ec..009050b1fbd 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1729,7 +1729,7 @@ It returns t if it got any new messages." "\n"))) (narrow-to-region (point) (point-max)) (and (= 0 (% count 10)) - (message "Converting to Babyl...%d" count))) + (message "Converting to Babyl format...%d" count))) ;;*** MMDF format ((let ((case-fold-search t)) (looking-at rmail-mmdf-delim1)) @@ -1756,7 +1756,7 @@ It returns t if it got any new messages." (narrow-to-region (point) (point-max)) (setq count (1+ count)) (and (= 0 (% count 10)) - (message "Converting to Babyl...%d" count))) + (message "Converting to Babyl format...%d" count))) ;;*** Mail format ((looking-at "^From ") (insert "\^L\n0, unseen,,\n*** EOOH ***\n") @@ -1864,7 +1864,7 @@ It returns t if it got any new messages." "\n")) (narrow-to-region (point) (point-max)) (and (= 0 (% count 10)) - (message "Converting to Babyl...%d" count))) + (message "Converting to Babyl format...%d" count))) ;; ;; This kludge is because some versions of sendmail.el ;; insert an extra newline at the beginning that shouldn't -- 2.39.2