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
2c6ee63d
Commit
2c6ee63d
authored
Dec 12, 2008
by
Chong Yidong
Browse files
All callers to pmail-output-to-pmail-file changed to
pmail-output-to-babyl-file.
parent
c1589cbe
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
14 deletions
+17
-14
lisp/mail/pmail.el
lisp/mail/pmail.el
+8
-8
lisp/mail/pmailsum.el
lisp/mail/pmailsum.el
+9
-6
No files found.
lisp/mail/pmail.el
View file @
2c6ee63d
...
...
@@ -600,7 +600,7 @@ by substituting the new message number into the existing list.")
:type 'file
:group 'pmail-files)
(defcustom pmail-default-pmail-file "~/XMAIL"
"*Default file name for \\[pmail-output-to-
pmai
l-file]."
"*Default file name for \\[pmail-output-to-
baby
l-file]."
:type 'file
:group 'pmail-files)
(defcustom pmail-default-body-file "~/mailout"
...
...
@@ -987,7 +987,7 @@ The buffer is expected to be narrowed to just the header of the message."
(
define-key
pmail-mode-map
"n"
'pmail-next-undeleted-message
)
(
define-key
pmail-mode-map
"\en"
'pmail-next-message
)
(
define-key
pmail-mode-map
"\e\C-n"
'pmail-next-labeled-message
)
(
define-key
pmail-mode-map
"o"
'pmail-output-to-
pmai
l-file
)
(
define-key
pmail-mode-map
"o"
'pmail-output-to-
baby
l-file
)
(
define-key
pmail-mode-map
"\C-o"
'pmail-output
)
(
define-key
pmail-mode-map
"p"
'pmail-previous-undeleted-message
)
(
define-key
pmail-mode-map
"\ep"
'pmail-previous-message
)
...
...
@@ -1038,7 +1038,7 @@ The buffer is expected to be narrowed to just the header of the message."
'
(
"Output (inbox)..."
.
pmail-output
))
(
define-key
pmail-mode-map
[menu-bar
classify
output]
'
(
"Output (Pmail)..."
.
pmail-output-to-
pmai
l-file
))
'
(
"Output (Pmail)..."
.
pmail-output-to-
baby
l-file
))
(
define-key
pmail-mode-map
[menu-bar
classify
kill-label]
'
(
"Kill Label..."
.
pmail-kill-label
))
...
...
@@ -1206,7 +1206,7 @@ Instead, these commands are available:
\\[pmail-reply] Reply to this message. Like \\[pmail-mail] but initializes some fields.
\\[pmail-retry-failure] Send this message again. Used on a mailer failure message.
\\[pmail-forward] Forward this message to another user.
\\[pmail-output-to-
pmai
l-file] Output this message to an Pmail file (append it).
\\[pmail-output-to-
baby
l-file] Output this message to an Pmail file (append it).
\\[pmail-output] Output this message to a Unix-format mail file (append it).
\\[pmail-output-body-to-file] Save message body to a file. Default filename comes from Subject line.
\\[pmail-input] Input Pmail file. Run Pmail on that file.
...
...
@@ -1256,7 +1256,7 @@ Instead, these commands are available:
;; because they contain no info except attribute changes
;; and deletion of messages.
;; The one exception is when messages are copied into an Pmail mode buffer.
;; pmail-output-to-
pmai
l-file enables auto save when you do that.
;; pmail-output-to-
baby
l-file enables auto save when you do that.
(
setq
buffer-auto-save-file-name
nil
)
(
setq
mode-line-modified
"--"
)
(
use-local-map
pmail-mode-map
)
...
...
@@ -1532,7 +1532,7 @@ original copy."
(
cons
"Output Pmail File"
(
pmail-list-to-menu
"Output Pmail File"
files
'pmail-output-to-
pmai
l-file
))))
'pmail-output-to-
baby
l-file
))))
(
define-key
pmail-mode-map
[menu-bar
classify
input-menu]
'
(
"Input Pmail File"
.
pmail-disable-menu
))
...
...
@@ -2645,7 +2645,7 @@ Called when a new message is displayed."
(
pmail-delete-forward
)
(
if
(
string=
"/dev/null"
folder
)
(
pmail-delete-message
)
(
pmail-output-to-
pmai
l-file
folder
1
t
)
(
pmail-output-to-
baby
l-file
folder
1
t
)
(
setq
d
nil
))))
(
setq
d
(
cdr
d
))))))
...
...
@@ -3799,7 +3799,7 @@ TOKEN and INDENT are not used."
TEXT and INDENT are not used."
(
speedbar-with-attached-buffer
(
message
"Moving message to %s"
token
)
(
pmail-output-to-
pmai
l-file
token
)))
(
pmail-output-to-
baby
l-file
token
)))
; Functions for setting, getting and encoding the POP password.
; The password is encoded to prevent it from being easily accessible
...
...
lisp/mail/pmailsum.el
View file @
2c6ee63d
...
...
@@ -912,7 +912,7 @@ Search, the `unseen' attribute is restored.")
(
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-
pmai
l-file
)
(
define-key
pmail-summary-mode-map
"o"
'pmail-summary-output-to-
baby
l-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 @@ Search, the `unseen' attribute is restored.")
'
(
"Output (inbox)..."
.
pmail-summary-output
))
(
define-key
pmail-summary-mode-map
[menu-bar
classify
output]
'
(
"Output (Pmail)..."
.
pmail-summary-output-to-
pmai
l-file
))
'
(
"Output (Pmail)..."
.
pmail-summary-output-to-
baby
l-file
))
(
define-key
pmail-summary-mode-map
[menu-bar
classify
kill-label]
'
(
"Kill Label..."
.
pmail-summary-kill-label
))
...
...
@@ -1561,7 +1561,7 @@ see the documentation of `pmail-resend'."
;; Summary output commands.
(
defun
pmail-summary-output-to-
pmai
l-file
(
&optional
file-name
n
)
(
defun
pmail-summary-output-to-
baby
l-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 @@ starting with the current one. Deleted messages are skipped and don't count."
(
setq
i
(
1+
i
))
(
with-current-buffer
pmail-buffer
(
let
((
pmail-delete-after-output
nil
))
(
pmail-output-to-
pmai
l-file
file-name
1
)))
(
pmail-output-to-
baby
l-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 @@ starting with the current one. Deleted messages are skipped and don't count."
(
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-
pmai
l-file] commands.
Also set the default for subsequent \\[pmail-output-to-
baby
l-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 @@ The variables `pmail-secondary-file-directory' and
(
cons
"Output Pmail File"
(
pmail-list-to-menu
"Output Pmail File"
files
'pmail-summary-output-to-
pmai
l-file
))))
'pmail-summary-output-to-
baby
l-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]
...
...
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