Show
Ignore:
Timestamp:
05/27/06 10:35:24 (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

    r4073 r4091  
    625625(defvar rmail-mime-charset-pattern 
    626626  (concat "^content-type:[ ]*text/plain;" 
    627           "\\(?:[ \t\n]*\\(format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*" 
     627          "\\(?:[ \t\n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*" 
    628628          "[ \t\n]*charset=\"?\\([^ \t\n\";]+\\)\"?") 
    629629  "Regexp to match MIME-charset specification in a header of message. 
    …… 
    19951995                                            rmail-mime-charset-pattern 
    19961996                                            start t)))) 
    1997                                   (intern (downcase (match-string 2)))))) 
     1997                                  (intern (downcase (match-string 1)))))) 
    19981998                         (rmail-decode-region start (point) mime-charset))))) 
    19991999               ;; Add an X-Coding-System: header if we don't have one. 
    …… 
    21562156                                        rmail-mime-charset-pattern 
    21572157                                        start t)))) 
    2158                               (intern (downcase (match-string 2)))))) 
     2158                              (intern (downcase (match-string 1)))))) 
    21592159                     (rmail-decode-region start (point) mime-charset))) 
    21602160               (save-excursion