Show
Ignore:
Timestamp:
09/09/06 16:30:10 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/mail/rmail.el

    r4091 r4161  
    16781678                                  rmail-use-spam-filter 
    16791679                                  (> rsf-number-of-spam 0)) 
    1680                              (if (= 1 new-messages) 
    1681                                  ", and found to be a spam message" 
    1682                                (if (> rsf-number-of-spam 1) 
    1683                                    (format ", %d of which found to be spam messages" 
    1684                                            rsf-number-of-spam) 
    1685                                  ", one of which found to be a spam message")) 
     1680                             (cond ((= 1 new-messages) 
     1681                                    ", and appears to be spam") 
     1682                                   ((= rsf-number-of-spam new-messages) 
     1683                                    ", and all appear to be spam") 
     1684                                   ((> rsf-number-of-spam 1) 
     1685                                    (format ", and %d appear to be spam" 
     1686                                            rsf-number-of-spam)) 
     1687                                   (t 
     1688                                    ", and 1 appears to be spam")) 
    16861689                           "")) 
    16871690                (if (and (featurep 'rmail-spam-filter) 
    …… 
    19011904  (let ((count 0) start 
    19021905        (case-fold-search nil) 
     1906        (buffer-undo-list t) 
    19031907        (invalid-input-resync 
    19041908         (function (lambda () 
    …… 
    21742178              ((eolp) (delete-char 1)) 
    21752179              (t (error "Cannot convert to babyl format"))))) 
     2180    (setq buffer-undo-list nil) 
    21762181    count)) 
    21772182