changeset 68482:98d72e1824e4

(mh-note-copied, mh-note-printed): Reorganization revealed character constants that were still strings (closes SF #770772).
author Bill Wohler <wohler@newt.com>
date Mon, 30 Jan 2006 03:39:36 +0000
parents 52b6d55ff868
children 18444e32999b
files lisp/mh-e/ChangeLog lisp/mh-e/mh-scan.el
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog	Mon Jan 30 03:16:50 2006 +0000
+++ b/lisp/mh-e/ChangeLog	Mon Jan 30 03:39:36 2006 +0000
@@ -1,5 +1,9 @@
 2006-01-29  Bill Wohler  <wohler@newt.com>
 
+	* mh-scan.el (mh-note-copied, mh-note-printed): Reorganization
+	revealed character constants that were still strings (closes SF
+	#770772).
+
 	* mh-comp.el (mh-letter-hide-all-skipped-fields)
 	(mh-get-header-field): Move to mh-utils.el so that you can read
 	messages without having to load mh-comp.el and mh-letter.el.
--- a/lisp/mh-e/mh-scan.el	Mon Jan 30 03:16:50 2006 +0000
+++ b/lisp/mh-e/mh-scan.el	Mon Jan 30 03:39:36 2006 +0000
@@ -370,7 +370,7 @@
   "The current message (in MH, not in MH-E) is marked by this character.
 See also `mh-scan-cur-msg-number-regexp'.")
 
-(defvar mh-note-copied "C"
+(defvar mh-note-copied ?C
   "Messages that have been copied are marked by this character.")
 
 (defvar mh-note-deleted ?D
@@ -383,7 +383,7 @@
 (defvar mh-note-forw ?F
   "Messages that have been forwarded are marked by this character.")
 
-(defvar mh-note-printed "P"
+(defvar mh-note-printed ?P
   "Messages that have been printed are marked by this character.")
 
 (defvar mh-note-refiled ?^