(mh-note-copied, mh-note-printed): Reorganization revealed character

constants that were still strings (closes SF #770772).

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 98b97dbb3c8eee2f3794643c3453358a54e1d38e..b0c0f97add1e1bc4234c28038d47586da0f9fc27 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -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.

diff --git a/lisp/mh-e/mh-scan.el b/lisp/mh-e/mh-scan.el
index bac932141e476be92d4b008ce82799628e54137e..8971c93a14dd6d59accc4e35e065b1dfa5437e3f 100644 (file)
--- a/lisp/mh-e/mh-scan.el
+++ b/lisp/mh-e/mh-scan.el
@@ -370,7 +370,7 @@ This column will only ever have spaces in it.")
   "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 @@ See also `mh-scan-deleted-msg-regexp'.")
 (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 ?^