summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2022-01-09 06:30:18 +0100
committerStefan Kangas <stefan@marxist.se>2022-01-09 06:30:18 +0100
commit3984ea855361f8c82cdeffbc616dbb459c257dae (patch)
treecf7271a70b27ff755f4f827adf74b6c2871ad2d4
parentaf7ca138c4c85e133de4935955cd7f52687fd1fb (diff)
parent30f1bdb41faa705fed497126322547c2d8111f36 (diff)
downloademacs-3984ea855361f8c82cdeffbc616dbb459c257dae.tar.gz
emacs-3984ea855361f8c82cdeffbc616dbb459c257dae.tar.bz2
emacs-3984ea855361f8c82cdeffbc616dbb459c257dae.zip
Merge from origin/emacs-28
30f1bdb41f Clarify docstring of package-native-compile c54fda643d Fix Subject "simplification" in Rmail
-rw-r--r--lisp/emacs-lisp/package.el8
-rw-r--r--lisp/mail/rmail.el2
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 42979d16755..5a3ec4f4af5 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -397,7 +397,13 @@ a sane initial value."
:type '(repeat symbol))
(defcustom package-native-compile nil
- "Non-nil means to native compile packages on installation."
+ "Non-nil means to native compile packages after installing them.
+This controls ahead-of-time compilation. If this option is nil,
+packages are normally compiled after they have been loaded for
+the first time.
+
+This option does not have any effect if Emacs was not built with
+native compilation support."
:type '(boolean)
:risky t
:version "28.1")
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 3795377cd2b..6b058d09f94 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3354,12 +3354,12 @@ removing prefixes such as Re:, Fwd: and so on and mailing list
tags such as [tag]."
(let ((subject (or (rmail-get-header "Subject" msgnum) ""))
(regexp "\\`[ \t\n]*\\(\\(\\w\\{1,4\\}\u00a0*[::]\\|\\[[^]]+]\\)[ \t\n]+\\)*"))
+ (setq subject (rfc2047-decode-string subject))
;; Corporate mailing systems sometimes add `[External] :'; if that happened,
;; delete everything up thru there. Empirically, that deletion makes
;; the Subject match the other messages in the thread.
(if (string-match "\\[external][ \t\n]*:" subject)
(setq subject (substring subject (match-end 0))))
- (setq subject (rfc2047-decode-string subject))
(setq subject (replace-regexp-in-string regexp "" subject))
(replace-regexp-in-string "[ \t\n]+" " " subject)))