mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(rmail-get-new-mail): Remove extra format string

Browse Source 
arguments.
This commit is contained in:
Andreas Schwab 2004-02-08 22:33:42 +00:00
parent 9c923d35fc
commit f39a98f445
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/rmail.el
View File

@ -1,6 +1,6 @@
;;; rmail.el --- main code of "RMAIL" mail reader for Emacs
;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000, 2001
;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000, 01, 2004
;; Free Software Foundation, Inc.
;; Maintainer: FSF
@ -1488,13 +1488,11 @@ It returns t if it got any new messages."
;; print out a message on number of spam messages found:
(if (and rmail-use-spam-filter (> rsf-number-of-spam 0))
(if (= 1 new-messages)
(format ", and found to be a spam message"
rsf-number-of-spam)
(format ", and found to be a spam message")
(if (> rsf-number-of-spam 1)
(format ", %d of which found to be spam messages"
rsf-number-of-spam)
(format ", one of which found to be a spam message"
rsf-number-of-spam)))
(format ", one of which found to be a spam message")))
""))
(if (and rmail-use-spam-filter (> rsf-number-of-spam 0))
(progn (if rmail-spam-filter-beep (beep t))