mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(rmail-output-decode-coding): Fix custom type, group.

Browse Source 
(rmail-output-as-babyl, rmail-output-to-babyl-buffer): Remove
unnecessary use of with-no-warnings.
(rmail-output-as-mbox, rmail-output-as-seen): Doc fix.
This commit is contained in:
Glenn Morris 2009-02-15 02:51:21 +00:00
parent 59a6d2495a
commit aab4c09b6b
1 changed files with 31 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/mail/rmailout.el
View File

@ -30,9 +30,8 @@
(defcustom rmail-output-decode-coding nil
"If non-nil, do coding system decoding when outputting message as Babyl."
:type '(choice (const :tag "on" t)
(const :tag "off" nil))
:group 'rmail)
:type 'boolean
:group 'rmail-output)
(defcustom rmail-output-file-alist nil
"Alist matching regexps to suggested output Rmail files.
@ -47,6 +46,12 @@ a file name as a string."
sexp)))
:group 'rmail-output)
(defcustom rmail-fields-not-to-output nil
"Regexp describing fields to exclude when outputting a message to a file."
:type '(choice (const :tag "None" nil)
regexp)
:group 'rmail-output)
(defun rmail-output-read-file-name ()
"Read the file name to use for `rmail-output'.
Set `rmail-default-file' to this name as well as returning it."
@ -79,12 +84,6 @@ Set `rmail-default-file' to this name as well as returning it."
(or read-file (file-name-nondirectory default-file))
(file-name-directory default-file)))))))
(defcustom rmail-fields-not-to-output nil
"Regexp describing fields to exclude when outputting a message to a file."
:type '(choice (const :tag "None" nil)
regexp)
:group 'rmail-output)
;; Delete from the buffer header fields we don't want output.
;; Buffer should be pre-narrowed to the header.
;; PRESERVE is a regexp for fields NEVER to delete.
@ -122,9 +121,7 @@ It alters the current buffer's text, so it should be a temp buffer."
;; File has been visited, in buffer BUF.
(set-buffer buf)
(let ((inhibit-read-only t)
(msg (with-no-warnings
(and (boundp 'rmail-current-message)
rmail-current-message))))
(msg (bound-and-true-p rmail-current-message)))
;; If MSG is non-nil, buffer is in RMAIL mode.
(if msg
(rmail-output-to-babyl-buffer tembuf msg)
@ -137,7 +134,6 @@ It alters the current buffer's text, so it should be a temp buffer."
"Copy msg in TEMBUF from BEG to END into this old R-mail BABYL buffer.
Do what is necessary to make babyl R-mail know about the new message.
Then display message number MSG."
(with-no-warnings
;; Turn on Auto Save mode, if it's off in this
;; buffer but enabled by default.
(and (not buffer-auto-save-file-name)
@ -155,7 +151,7 @@ Then display message number MSG."
(if (rmail-summary-exists)
(rmail-select-summary
(rmail-update-summary)))
(rmail-show-message-1 msg)))
(rmail-show-message-1 msg))
(defun rmail-convert-to-babyl-format ()
(let ((count 0) (start (point-min))
@ -306,7 +302,7 @@ Then display message number MSG."
t)))))))
(defun rmail-output-as-mbox (file-name nomsg &optional as-seen)
"Convert the current buffer's text to mbox Babyl and output to FILE-NAME.
"Convert the current buffer's text to mbox and output to FILE-NAME.
It alters the current buffer's text, so call with a temp buffer current.
If FILE-NAME is visited, output into its buffer instead.
AS-SEEN is non-nil if we are copying the message \"as seen\"."
@ -478,8 +474,9 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
(if (= num-appended 1) "" "s"))))))
(kill-buffer tembuf))))
;; FIXME gnus does not use this function.
(defun rmail-output-as-seen (file-name &optional count noattribute from-gnus)
"Append this message to system-inbox-format mail file named FILE-NAME.
"Append this message to mbox file named FILE-NAME.
A prefix argument COUNT says to output that many consecutive messages,
starting with the current one. Deleted messages are skipped and don't count.
When called from Lisp code, COUNT may be omitted and defaults to 1.