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
447f30f6
Commit
447f30f6
authored
Nov 14, 2011
by
Glenn Morris
Browse files
rmailout fix for bug#9978.
* lisp/mail/rmailout.el (rmail-output-to-rmail-buffer): Handle empty buffers.
parent
91af3942
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
5 deletions
+11
-5
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/mail/rmailout.el
lisp/mail/rmailout.el
+6
-5
No files found.
lisp/ChangeLog
View file @
447f30f6
2011-11-15 Glenn Morris <rgm@gnu.org>
* mail/rmailout.el (rmail-output-to-rmail-buffer):
Handle empty buffers. (Bug#9978)
2011-11-14 Juanma Barranquero <lekktu@gmail.com>
* international/mule.el (define-charset):
...
...
lisp/mail/rmailout.el
View file @
447f30f6
...
...
@@ -377,11 +377,12 @@ display message number MSG."
(
rmail-maybe-set-message-counters
)
;; Insert the new message after the last old message.
(
widen
)
;; Make sure the last old message ends with a blank line.
(
goto-char
(
point-max
))
(
rmail-ensure-blank-line
)
;; Insert the new message at the end.
(
narrow-to-region
(
point-max
)
(
point-max
))
(
unless
(
zerop
(
buffer-size
))
;; Make sure the last old message ends with a blank line.
(
goto-char
(
point-max
))
(
rmail-ensure-blank-line
)
;; Insert the new message at the end.
(
narrow-to-region
(
point-max
)
(
point-max
)))
(
insert-buffer-substring
tembuf
)
(
rmail-count-new-messages
t
)
;; FIXME should re-use existing windows.
...
...
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