[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmailsum.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmailsum.el |
Date: |
Fri, 12 Dec 2008 15:26:38 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/12/12 15:26:38
Modified files:
lisp/mail : pmailsum.el
Log message:
All callers to pmail-output-to-pmail-file changed to
pmail-output-to-babyl-file.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailsum.el?cvsroot=emacs&r1=1.11&r2=1.12
Patches:
Index: pmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmailsum.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- pmailsum.el 9 Dec 2008 19:35:33 -0000 1.11
+++ pmailsum.el 12 Dec 2008 15:26:38 -0000 1.12
@@ -912,7 +912,7 @@
(define-key pmail-summary-mode-map "n" 'pmail-summary-next-msg)
(define-key pmail-summary-mode-map "\en" 'pmail-summary-next-all)
(define-key pmail-summary-mode-map "\e\C-n"
'pmail-summary-next-labeled-message)
- (define-key pmail-summary-mode-map "o"
'pmail-summary-output-to-pmail-file)
+ (define-key pmail-summary-mode-map "o"
'pmail-summary-output-to-babyl-file)
(define-key pmail-summary-mode-map "\C-o" 'pmail-summary-output)
(define-key pmail-summary-mode-map "p" 'pmail-summary-previous-msg)
(define-key pmail-summary-mode-map "\ep" 'pmail-summary-previous-all)
@@ -979,7 +979,7 @@
'("Output (inbox)..." . pmail-summary-output))
(define-key pmail-summary-mode-map [menu-bar classify output]
- '("Output (Pmail)..." . pmail-summary-output-to-pmail-file))
+ '("Output (Pmail)..." . pmail-summary-output-to-babyl-file))
(define-key pmail-summary-mode-map [menu-bar classify kill-label]
'("Kill Label..." . pmail-summary-kill-label))
@@ -1561,7 +1561,7 @@
;; Summary output commands.
-(defun pmail-summary-output-to-pmail-file (&optional file-name n)
+(defun pmail-summary-output-to-babyl-file (&optional file-name n)
"Append the current message to an Pmail file named FILE-NAME.
If the file does not exist, ask if it should be created.
If file is being visited, the message is appended to the Emacs
@@ -1584,12 +1584,15 @@
(setq i (1+ i))
(with-current-buffer pmail-buffer
(let ((pmail-delete-after-output nil))
- (pmail-output-to-pmail-file file-name 1)))
+ (pmail-output-to-babyl-file file-name 1)))
(if pmail-delete-after-output
(pmail-summary-delete-forward nil)
(if (< i n)
(pmail-summary-next-msg 1))))))
+(defalias 'pmail-summary-output-to-pmail-file
+ 'pmail-summary-output-to-babyl-file)
+
(defun pmail-summary-output (&optional file-name n)
"Append this message to Unix mail file named FILE-NAME.
@@ -1618,7 +1621,7 @@
(defun pmail-summary-output-menu ()
"Output current message to another Pmail file, chosen with a menu.
-Also set the default for subsequent \\[pmail-output-to-pmail-file] commands.
+Also set the default for subsequent \\[pmail-output-to-babyl-file] commands.
The variables `pmail-secondary-file-directory' and
`pmail-secondary-file-regexp' control which files are offered in the menu."
(interactive)
@@ -1642,7 +1645,7 @@
(cons "Output Pmail File"
(pmail-list-to-menu "Output Pmail File"
files
- 'pmail-summary-output-to-pmail-file))))
+ 'pmail-summary-output-to-babyl-file))))
(define-key pmail-summary-mode-map [menu-bar classify input-menu]
'("Input Pmail File" . pmail-disable-menu))
(define-key pmail-summary-mode-map [menu-bar classify output-menu]