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
56b25713
Commit
56b25713
authored
Apr 07, 1994
by
Karl Heuer
Browse files
Fix previous change.
parent
9ed287b0
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
12 deletions
+12
-12
lisp/mail/rmailedit.el
lisp/mail/rmailedit.el
+6
-2
lisp/mail/rmailsum.el
lisp/mail/rmailsum.el
+6
-10
No files found.
lisp/mail/rmailedit.el
View file @
56b25713
...
...
@@ -51,7 +51,9 @@ to return to regular RMAIL:
(
setq
mode-line-modified
(
default-value
'mode-line-modified
))
(
setq
mode-line-format
(
default-value
'mode-line-format
)))
(
if
(
rmail-summary-exists
)
(
rmail-summary-disable
))
(
save-excursion
(
set-buffer
rmail-summary-buffer
)
(
rmail-summary-disable
)))
(
run-hooks
'text-mode-hook
'rmail-edit-mode-hook
))
(
defun
rmail-edit-current-message
()
...
...
@@ -74,7 +76,9 @@ to return to regular RMAIL:
"Finish editing message; switch back to Rmail proper."
(
interactive
)
(
if
(
rmail-summary-exists
)
(
rmail-summary-enable
))
(
save-excursion
(
set-buffer
rmail-summary-buffer
)
(
rmail-summary-enable
)))
;; Make sure buffer ends with a newline.
(
save-excursion
(
goto-char
(
point-max
))
...
...
lisp/mail/rmailsum.el
View file @
56b25713
...
...
@@ -531,18 +531,14 @@ Commands for sorting the summary:
;; Summary features need to be disabled during edit mode.
(
defun
rmail-summary-disable
()
(
save-excursion
(
set-buffer
rmail-summary-buffer
)
(
use-local-map
text-mode-map
)
(
remove-hook
'post-command-hook
'rmail-summary-rmail-update
)
(
setq
revert-buffer-function
nil
)))
(
use-local-map
text-mode-map
)
(
remove-hook
'post-command-hook
'rmail-summary-rmail-update
)
(
setq
revert-buffer-function
nil
))
(
defun
rmail-summary-enable
()
(
save-excursion
(
set-buffer
rmail-summary-buffer
)
(
use-local-map
rmail-summary-mode-map
)
(
add-hook
'post-command-hook
'rmail-summary-rmail-update
)
(
setq
revert-buffer-function
'rmail-update-summary
)))
(
use-local-map
rmail-summary-mode-map
)
(
add-hook
'post-command-hook
'rmail-summary-rmail-update
)
(
setq
revert-buffer-function
'rmail-update-summary
))
;; Show in Rmail the message described by the summary line that point is on,
;; but only if the Rmail buffer is already visible.
...
...
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