[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el |
Date: |
Fri, 13 Feb 2009 03:51:20 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/02/13 03:51:19
Modified files:
lisp : ChangeLog
lisp/mail : rmail.el
Log message:
(rmail-summary-vector, rmail-mode-map): Add doc string.
(rmail-set-header-1): If VALUE is nil, remove the header altogether.
(rmail-set-header): Doc fix.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15317&r2=1.15318
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.500&r2=1.501
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15317
retrieving revision 1.15318
diff -u -b -r1.15317 -r1.15318
--- ChangeLog 12 Feb 2009 21:49:29 -0000 1.15317
+++ ChangeLog 13 Feb 2009 03:51:16 -0000 1.15318
@@ -1,3 +1,27 @@
+2009-02-13 Glenn Morris <address@hidden>
+
+ * mail/rmailsum.el (msgnum): Remove declaration.
+ (rmail-summary-redo): Add missing initialization value.
+ (rmail-summary-overlay, rmail-summary-mode-map): Add doc string.
+ (rmail-summary-mark-deleted, rmail-summary-deleted-p):
+ Fix skip-chars-forward calls.
+ (rmail-summary-mark-seen): New function. As well as removing the '-'
+ mark, update the summary-vector. (Bug#2135)
+ (rmail-summary-rmail-update, rmail-summary-goto-msg):
+ Use rmail-summary-mark-seen.
+
+ * mail/rmail.el (rmail-summary-vector, rmail-mode-map): Add doc string.
+
+ * mail/unrmail.el (unrmail): When getting message keywords, don't
+ include a leading space, but do include the space after the separating
+ comma. (Bug#2303)
+
+ * mail/rmail.el (rmail-set-header-1): If VALUE is nil, remove the
+ header altogether.
+ (rmail-set-header): Doc fix.
+ * mail/rmailkwd.el (rmail-set-label): Delete the keyword header if all
+ labels are removed. (Bug#2302)
+
2009-02-12 Juri Linkov <address@hidden>
* image-mode.el (image-toggle-display):
Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.500
retrieving revision 1.501
diff -u -b -r1.500 -r1.501
--- mail/rmail.el 12 Feb 2009 04:01:02 -0000 1.500
+++ mail/rmail.el 13 Feb 2009 03:51:19 -0000 1.501
@@ -564,7 +564,9 @@
(defvar rmail-summary-buffer nil)
(put 'rmail-summary-buffer 'permanent-local t)
-(defvar rmail-summary-vector nil)
+(defvar rmail-summary-vector nil
+ "In an Rmail buffer, vector of (newline-terminated) strings.
+Element N specifies the summary line for message N+1.")
(put 'rmail-summary-vector 'permanent-local t)
;; Rmail buffer swapping variables.
@@ -1130,7 +1132,8 @@
(define-key map [menu-bar move next]
'("Next" . rmail-next-message))
- map))
+ map)
+ "Keymap used in Rmail mode.")
;; Rmail toolbar
(defvar rmail-tool-bar-map
@@ -2010,23 +2013,27 @@
(defun rmail-set-header-1 (name value)
"Subroutine of `rmail-set-header'.
-Narrow to header, set header NAME to VALUE, replacing existing if present."
+Narrow to header, set header NAME to VALUE, replacing existing if present.
+VALUE nil means to remove NAME altogether."
(if (search-forward "\n\n" nil t)
(progn
(forward-char -1)
(narrow-to-region (point-min) (point))
(goto-char (point-min))
(if (re-search-forward (concat "^" (regexp-quote name) ":") nil 'move)
+ (if value
(progn
(delete-region (point) (line-end-position))
(insert " " value))
- (insert name ": " value "\n")))
+ (delete-region (line-beginning-position)
+ (line-beginning-position 2)))
+ (if value (insert name ": " value "\n"))))
(rmail-error-bad-format)))
(defun rmail-set-header (name &optional msgnum value)
- "Store VALUE in message header NAME, nil if it has none.
-MSGNUM specifies the message number to operate on.
-If MSGNUM is nil, use the current message."
+ "Set message header NAME to VALUE in message number MSGNUM.
+If MSGNUM is nil, use the current message. NAME and VALUE are strings.
+VALUE may also be nil, meaning to remove the header."
(rmail-apply-in-message msgnum 'rmail-set-header-1 name value)
;; Ensure header changes get saved.
;; (Note replacing a header with an identical copy modifies.)
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/02
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/05
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/05
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/09
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/11
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el,
Glenn Morris <=
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/13
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/16
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/18
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/19
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/02/28