mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(rmail-duplicate-message): Make it work.

Browse Source
This commit is contained in:
Glenn Morris 2009-02-05 07:38:56 +00:00
parent 393439a343
commit 50dcb7845f
2 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -12,7 +12,8 @@
2009-02-05 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-what-message): Unbreak it.
* mail/rmail.el (rmail-what-message, rmail-duplicate-message):
Make these functions work.
* net/mairix.el (rmail-buffer): Remove unneeded eval-when-compile.
(rmail-narrow-to-non-pruned-header): Remove autoload.

31
lisp/mail/rmail.el
View File

@ -1442,16 +1442,27 @@ Hook `rmail-quit-hook' is run after expunging."
The duplicate copy goes into the Rmail file just after the
original copy."
(interactive)
(widen)
(let ((buffer-read-only nil)
(number rmail-current-message)
(string (buffer-substring (rmail-msgbeg rmail-current-message)
(rmail-msgend rmail-current-message))))
(goto-char (rmail-msgend rmail-current-message))
(insert string)
(rmail-forget-messages)
(rmail-show-message-maybe number)
(message "Message duplicated")))
;; If we are in a summary buffer, switch to the Rmail buffer.
(set-buffer rmail-buffer)
(let ((buff (current-buffer))
(n rmail-current-message)
(beg (rmail-msgbeg rmail-current-message))
(end (rmail-msgend rmail-current-message)))
(if (rmail-buffers-swapped-p) (set-buffer rmail-view-buffer))
(widen)
(let ((buffer-read-only nil)
(string (buffer-substring-no-properties beg end)))
(goto-char end)
(insert string))
(set-buffer buff)
(rmail-swap-buffers-maybe)
(goto-char (point-max))
(rmail-set-message-counters)
(set-buffer-modified-p t)
(rmail-show-message n))
(if (rmail-summary-exists)
(rmail-select-summary (rmail-update-summary)))
(message "Message duplicated"))
;;;###autoload
(defun rmail-input (filename)