diff options
author | Eli Zaretskii <[email protected]> | 2011-11-05 00:07:12 +0200 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2011-11-05 00:07:12 +0200 |
commit | 53479029f7a5e0391766bdd6c4008353924a7740 (patch) | |
tree | 52cbeb5151c43f4776ef8ff8ca56f8af567639c0 /lisp | |
parent | fc5f9b45f6f90e798a454c7b768e8d02c9cb61c2 (diff) |
Fix rmail-next/prev-same-subject.
lisp/mail/rmail.el (rmail-simplified-subject): Decode subject with
rfc2047-decode-string.
(rmail-mime-toggle-hidden): Declare to avoid byte-compilation
warnings.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/mail/rmail.el | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eb276721db..ab409e1000 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2011-11-04 Eli Zaretskii <[email protected]> + * mail/rmail.el (rmail-simplified-subject): Decode subject with + rfc2047-decode-string. + (rmail-mime-toggle-hidden): Declare to avoid byte-compilation + warnings. + * window.el (window-body-height, window-body-width): Mention in the doc string that the return values are in frame's canonical units. (Bug#9949) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 603a615192..a535d3a86d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -194,6 +194,7 @@ please report it with \\[report-emacs-bug].") (declare-function mail-dont-reply-to "mail-utils" (destinations)) (declare-function rmail-update-summary "rmailsum" (&rest ignore)) +(declare-function rmail-mime-toggle-hidden "rmailmm" ()) (defun rmail-probe (prog) "Determine what flavor of movemail PROG is. @@ -3262,6 +3263,7 @@ Interactively, empty argument means use same regexp used last time." Simplifying the subject means stripping leading and trailing whitespace, and typical reply prefixes such as Re:." (let ((subject (or (rmail-get-header "Subject" msgnum) ""))) + (setq subject (rfc2047-decode-string subject)) (if (string-match "\\`[ \t]+" subject) (setq subject (substring subject (match-end 0)))) (if (string-match rmail-reply-regexp subject) |