# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1138592376 0
# Node ID 98d72e1824e4b5671da6cf3d501d70c590c6b03a
# Parent  52b6d55ff868ebfb2d01320e42c4d15bd043b53e
(mh-note-copied, mh-note-printed): Reorganization revealed character
constants that were still strings (closes SF #770772).

diff -r 52b6d55ff868 -r 98d72e1824e4 lisp/mh-e/ChangeLog
--- 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.
diff -r 52b6d55ff868 -r 98d72e1824e4 lisp/mh-e/mh-scan.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 ?^