aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii <[email protected]>2011-11-05 00:07:12 +0200
committerEli Zaretskii <[email protected]>2011-11-05 00:07:12 +0200
commit53479029f7a5e0391766bdd6c4008353924a7740 (patch)
tree52cbeb5151c43f4776ef8ff8ca56f8af567639c0 /lisp
parentfc5f9b45f6f90e798a454c7b768e8d02c9cb61c2 (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/ChangeLog5
-rw-r--r--lisp/mail/rmail.el2
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)