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
fca97d87
Commit
fca97d87
authored
Aug 16, 1998
by
Richard M. Stallman
Browse files
(rmail-output): Always preserve MIME-Version field,
even if it was pruned.
parent
fff05d88
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
20 additions
and
14 deletions
+20
-14
lisp/mail/rmailout.el
lisp/mail/rmailout.el
+20
-14
No files found.
lisp/mail/rmailout.el
View file @
fca97d87
...
...
@@ -40,8 +40,8 @@ a file name as a string."
sexp
)))
:group
'rmail-output
)
;;; There are functions elsewhere in Emacs that use this function;
check
;;; them
out
before you change the calling method.
;;; There are functions elsewhere in Emacs that use this function;
;;;
look at
them before you change the calling method.
;;;###autoload
(
defun
rmail-output-to-rmail-file
(
file-name
&optional
count
)
"Append the current message to an Rmail file named FILE-NAME.
...
...
@@ -206,8 +206,8 @@ starting with the current one. Deleted messages are skipped and don't count."
(
delete-region
(
point
)
(
progn
(
forward-line
1
)
(
point
)))))))))
;;; There are functions elsewhere in Emacs that use this function;
check
;;; them
out
before you change the calling method.
;;; There are functions elsewhere in Emacs that use this function;
;;;
look at
them before you change the calling method.
;;;###autoload
(
defun
rmail-output
(
file-name
&optional
count
noattribute
from-gnus
)
"Append this message to system-inbox-format mail file named FILE-NAME.
...
...
@@ -274,18 +274,22 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
(
forward-line
1
)
(
=
(
following-char
)
?0
)))))
header-beginning
mail-from
)
mail-from
mime-version
)
(
while
(
>
count
0
)
;; Preserve the Mail-From and MIME-Version fields
;; even if they have been pruned.
(
or
from-gnus
(
setq
mail-from
(
save-excursion
(
save-restriction
(
widen
)
(
goto-char
(
rmail-msgbeg
rmail-current-message
))
(
setq
header-beginning
(
point
))
(
search-forward
"\n*** EOOH ***\n"
)
(
narrow-to-region
header-beginning
(
point
))
(
mail-fetch-field
"Mail-From"
)))))
(
save-excursion
(
save-restriction
(
widen
)
(
goto-char
(
rmail-msgbeg
rmail-current-message
))
(
setq
header-beginning
(
point
))
(
search-forward
"\n*** EOOH ***\n"
)
(
narrow-to-region
header-beginning
(
point
))
(
setq
mail-from
(
mail-fetch-field
"Mail-From"
)
mime-version
(
mail-fetch-field
"MIME-Version"
)))))
(
save-excursion
(
set-buffer
tembuf
)
(
erase-buffer
)
...
...
@@ -301,6 +305,8 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
(
mail-fetch-field
"sender"
)
"unknown"
))
" "
(
current-time-string
)
"\n"
))
(
if
mime-version
(
insert
"MIME-Version: "
mime-version
"\n"
))
;; ``Quote'' "\nFrom " as "\n>From "
;; (note that this isn't really quoting, as there is no requirement
;; that "\n[>]+From " be quoted in the same transparent way.)
...
...
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