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
0af64910
Commit
0af64910
authored
Jul 31, 1994
by
Richard M. Stallman
Browse files
(rmail-retry-failure): Handle a weird case with
a couple of lines before the old message header.
parent
69d4d27f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
0 deletions
+8
-0
lisp/mail/rmail.el
lisp/mail/rmail.el
+8
-0
No files found.
lisp/mail/rmail.el
View file @
0af64910
...
...
@@ -2098,6 +2098,14 @@ the body of the original message."
(or (re-search-forward mail-unsent-separator nil t)
(error "
Cannot
parse
this
as
a
failure
message
")))
(save-restriction
;; One message contained a few random lines before the old
;; message header. The first line of the message started with
;; two hyphens. A blank line follows these random lines.
(skip-chars-forward "
\n
")
(if (looking-at "
^--
")
(progn
(search-forward "
\n\n
")
(skip-chars-forward "
\n
")))
(narrow-to-region (point) (point-max))
;; Now mail-fetch-field will get from headers of the original message,
;; not from the headers of the rejection.
...
...
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