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
a1a29341
Commit
a1a29341
authored
Feb 13, 2009
by
Glenn Morris
Browse files
Update for rmail-show-message -> rmail-show-message-1 name change.
parent
574bc51d
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
5 additions
and
5 deletions
+5
-5
lisp/mail/rmailkwd.el
lisp/mail/rmailkwd.el
+1
-1
lisp/mail/rmailmsc.el
lisp/mail/rmailmsc.el
+1
-1
lisp/mail/rmailout.el
lisp/mail/rmailout.el
+2
-2
lisp/mail/rmailsort.el
lisp/mail/rmailsort.el
+1
-1
No files found.
lisp/mail/rmailkwd.el
View file @
a1a29341
...
...
@@ -182,7 +182,7 @@ With prefix argument N moves forward N messages with these labels."
(
error
"No previous message with labels %s"
labels
)
(
if
(
>
n
0
)
(
error
"No following message with labels %s"
labels
)
(
rmail-show-message
lastwin
)))))
(
rmail-show-message
-1
lastwin
)))))
(
provide
'rmailkwd
)
...
...
lisp/mail/rmailmsc.el
View file @
a1a29341
...
...
@@ -49,7 +49,7 @@ If FILE-NAME is empty, remove any existing inbox list."
(
message
"Setting the inbox list for %s for this session"
(
file-name-nondirectory
(
buffer-file-name
)))
(
setq
rmail-inbox-list
inbox-list
)))
(
rmail-show-message
rmail-current-message
))
(
rmail-show-message
-1
rmail-current-message
))
;; arch-tag: 94614a62-2a0a-4e25-bac9-06f461ed4c60
;;; rmailmsc.el ends here
lisp/mail/rmailout.el
View file @
a1a29341
...
...
@@ -155,7 +155,7 @@ Then display message number MSG."
(
if
(
rmail-summary-exists
)
(
rmail-select-summary
(
rmail-update-summary
)))
(
rmail-show-message
msg
)))
(
rmail-show-message
-1
msg
)))
(
defun
rmail-convert-to-babyl-format
()
(
let
((
count
0
)
(
start
(
point-min
))
...
...
@@ -392,7 +392,7 @@ Then display message number MSG."
(
if
(
rmail-summary-exists
)
(
rmail-select-summary
(
rmail-update-summary
)))
(
rmail-show-message
msg
)))
(
rmail-show-message
-1
msg
)))
;;; There are functions elsewhere in Emacs that use this function;
;;; look at them before you change the calling method.
...
...
lisp/mail/rmailsort.el
View file @
a1a29341
...
...
@@ -216,7 +216,7 @@ If 1st argument REVERSE is non-nil, sort them in reverse order.
(
delete-char
1
)
(
setq
quit-flag
nil
)
(
rmail-set-message-counters
)
(
rmail-show-message
current-message
)
(
rmail-show-message
-1
current-message
)
(
if
return-to-point
(
goto-char
return-to-point
))
(
if
(
rmail-summary-exists
)
...
...
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