[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmail.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmail.el |
Date: |
Thu, 05 Mar 2009 03:43:33 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/03/05 03:43:33
Modified files:
lisp/mail : rmail.el
Log message:
(rmail-perm-variables): rmail-overlay-list needs to be buffer-local in
the view buffer, not the rmail buffer.
(rmail-ensure-blank-line): New function.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.521&r2=1.522
Patches:
Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.521
retrieving revision 1.522
diff -u -b -r1.521 -r1.522
--- rmail.el 3 Mar 2009 04:08:11 -0000 1.521
+++ rmail.el 5 Mar 2009 03:43:32 -0000 1.522
@@ -1344,6 +1344,7 @@
(set-buffer-multibyte nil)
(with-current-buffer (setq rmail-view-buffer (rmail-generate-viewer-buffer))
(setq buffer-undo-list t)
+ (set (make-local-variable 'rmail-overlay-list) nil)
(set-buffer-multibyte t)
;; Force C-x C-s write Unix EOLs.
(set-buffer-file-coding-system 'undecided-unix))
@@ -1352,8 +1353,6 @@
(make-local-variable 'rmail-current-message)
(make-local-variable 'rmail-total-messages)
(setq rmail-total-messages 0)
- (make-local-variable 'rmail-overlay-list)
- (setq rmail-overlay-list nil)
(make-local-variable 'rmail-message-vector)
(make-local-variable 'rmail-msgref-vector)
(make-local-variable 'rmail-inbox-list)
@@ -1964,6 +1963,14 @@
(setq last-coding-system-used
(coding-system-change-eol-conversion coding 0)))))))
+(defun rmail-ensure-blank-line ()
+ "Ensure a message ends in a blank line.
+Call with point at the end of the message."
+ (unless (bolp)
+ (insert "\n"))
+ (unless (looking-back "\n\n")
+ (insert "\n")))
+
(defun rmail-add-mbox-headers ()
"Validate the RFC2822 format for the new messages.
Point should be at the first new message.
@@ -2192,6 +2199,10 @@
"Return non-nil if message number MSGNUM has the unseen attribute."
(rmail-message-attr-p msgnum "......U"))
+;; FIXME rmail-get-labels does some formatting (eg leading space, `;'
+;; between attributes and labels), so this might not do what you want.
+;; Eg see rmail-sort-by-labels. rmail-get-labels could have an
+;; optional `noformat' argument.
(defun rmail-message-labels-p (msg labels)
"Return non-nil if message number MSG has labels matching regexp LABELS."
(string-match labels (rmail-get-labels msg)))
- [Emacs-diffs] emacs/lisp/mail rmail.el,
Glenn Morris <=
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/16
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/16
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/16
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/18
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/22
- [Emacs-diffs] emacs/lisp/mail rmail.el, Richard M. Stallman, 2009/03/22