Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6aa7fc5b
Commit
6aa7fc5b
authored
Feb 18, 2009
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(rmail-mbox-from): Move to mail-utils.
Update callers for name change.
parent
8e7a0f83
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
16 deletions
+3
-16
lisp/mail/rmailout.el
lisp/mail/rmailout.el
+3
-16
No files found.
lisp/mail/rmailout.el
View file @
6aa7fc5b
...
...
@@ -308,20 +308,7 @@ Replaces the From line with a \"Mail-from\" header. Adds \"Date\" and
"From: \\1\n"
))
t
)))))))
;; Note this is duplicated in unrmail.el.
(
defun
rmail-mbox-from
()
"Return a \"From \" line for the current message.
The buffer should be narrowed to just the header."
(
let
((
from
(
or
(
mail-fetch-field
"from"
)
(
mail-fetch-field
"really-from"
)
(
mail-fetch-field
"sender"
)
"unknown"
))
(
date
(
mail-fetch-field
"date"
)))
(
format
"From %s %s\n"
(
mail-strip-quoted-names
from
)
(
or
(
and
date
(
ignore-errors
(
current-time-string
(
date-to-time
date
))))
(
current-time-string
)))))
(
autoload
'mail-mbox-from
"mail-utils"
)
(
defun
rmail-output-as-mbox
(
file-name
nomsg
&optional
as-seen
)
"Convert the current buffer's text to mbox and output to FILE-NAME.
...
...
@@ -344,7 +331,7 @@ AS-SEEN is non-nil if we are copying the message \"as seen\"."
"Mail-From\\|MIME-Version\\|Content-type"
))
(
goto-char
(
point-min
))
(
or
(
looking-at
"From "
)
(
insert
(
r
mail-mbox-from
)))
(
insert
(
mail-mbox-from
)))
(
widen
)
;; Make sure message ends with blank line.
(
goto-char
(
point-max
))
...
...
@@ -451,7 +438,7 @@ from a non-Rmail buffer. In this case, COUNT is ignored."
;; rmail-convert-to-babyl-format errors if no From line,
;; whereas rmail-output-as-mbox inserts one.
(
or
(
looking-at
"From "
)
(
insert
(
r
mail-mbox-from
)))
(
insert
(
mail-mbox-from
)))
(
rmail-output-as-babyl
file-name
noattribute
))
(
rmail-output-as-mbox
file-name
noattribute
)))
;; Called from an Rmail buffer.
...
...
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