[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-comp.el ChangeLog
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-comp.el ChangeLog |
Date: |
Mon, 30 Jan 2006 00:53:30 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 06/01/30 00:53:30
Modified files:
lisp/mh-e : mh-comp.el ChangeLog
Log message:
(mh-insert-fields): Handle nil values. Rmail, at least, will deliver
them to us.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-comp.el.diff?tr1=1.43&tr2=1.44&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.125&tr2=1.126&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.125 emacs/lisp/mh-e/ChangeLog:1.126
--- emacs/lisp/mh-e/ChangeLog:1.125 Sun Jan 29 19:34:57 2006
+++ emacs/lisp/mh-e/ChangeLog Mon Jan 30 00:53:30 2006
@@ -1,5 +1,21 @@
2006-01-29 Bill Wohler <address@hidden>
+ * mh-comp.el (mh-insert-fields): Handle nil values. Rmail, at
+ least, will deliver them to us.
+
+ * mh-e.el (mh-after-commands-processed-hook)
+ (mh-before-commands-processed-hook): Specify what sort of requests
+ in docstring.
+
+ * mh-folder.el (mh-folder-mode): Use add-to-list to modify
+ minor-mode-alias.
+
+ * mh-letter.el (mh-letter-menu): Remove. Defvar no longer needed
+ to shush compiler.
+ (mh-letter-mode): Remove Mail menu.
+
+2006-01-29 Bill Wohler <address@hidden>
+
The Great Cleanup
Remove circular dependencies. mh-e.el now includes few require
statements and stands alone. Other files should need to require
Index: emacs/lisp/mh-e/mh-comp.el
diff -u emacs/lisp/mh-e/mh-comp.el:1.43 emacs/lisp/mh-e/mh-comp.el:1.44
--- emacs/lisp/mh-e/mh-comp.el:1.43 Sun Jan 29 19:34:56 2006
+++ emacs/lisp/mh-e/mh-comp.el Mon Jan 30 00:53:30 2006
@@ -870,7 +870,8 @@
(value (car (cdr name-values))))
(if (not (string-match "^.*:$" field-name))
(setq field-name (concat field-name ":")))
- (cond ((equal value "")
+ (cond ((or (null value)
+ (equal value ""))
nil)
((mh-position-on-field field-name)
(insert " " (or value "")))