Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a21b845b
Commit
a21b845b
authored
Feb 23, 1997
by
Karl Heuer
Browse files
(rmail-next-same-subject, rmail-reply): Ignore case, to
match "RE:" as well as "Re:".
parent
2c30b2fc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
2 deletions
+4
-2
lisp/mail/rmail.el
lisp/mail/rmail.el
+4
-2
No files found.
lisp/mail/rmail.el
View file @
a21b845b
...
...
@@ -158,7 +158,7 @@ before obeying `rmail-ignored-headers'.")
(defvar rmail-reply-prefix "
Re:
"
"
String
to
prepend
to
Subject
line
when
replying
to
a
message.
")
;; Some mailers use "
Re
(
2
)
:
" or "
Re^2:
" or "
Re:
Re:
" or "
Re[2]
".
;; Some mailers use "
Re
(
2
)
:
" or "
Re^2:
" or "
Re:
Re:
" or "
Re[2]
:
".
;; This pattern should catch all the common variants.
(defvar rmail-reply-regexp "
\\
`
\\
(
Re\\
((
[0-9]+
)
\\|\\[[0-9]+\\]\\|\\^[0-9]+\\
)
?:
*\\
)
*
"
"
Regexp
to
delete
from
Subject
line
before
inserting
`
rmail-reply-prefix
'.
")
...
...
@@ -2006,6 +2006,7 @@ If N is negative, go backwards instead."
(let ((subject (mail-fetch-field "Subject"))
(forward (> n 0))
(i rmail-current-message)
(case-fold-search t)
search-regexp found)
(if (string-match "Re:[ \t]*" subject)
(setq subject (substring subject (match-end 0))))
...
...
@@ -2308,7 +2309,8 @@ use \\[mail-yank-original] to yank the original message into it."
(and (stringp subject)
(setq subject
(concat rmail-reply-prefix
(if (string-match rmail-reply-regexp subject)
(if (let ((case-fold-search t))
(string-match rmail-reply-regexp subject))
(substring subject (match-end 0))
subject))))
(rmail-start-mail nil
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment