[Emacs-commit] emacs/lisp/mh-e mh-scan.el ChangeLog

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/01/30 03:39:36

Modified files:
        lisp/mh-e      : mh-scan.el ChangeLog 

Log message:
        (mh-note-copied, mh-note-printed): Reorganization revealed character
        constants that were still strings (closes SF #770772).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-scan.el.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.127&tr2=1.128&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.127 emacs/lisp/mh-e/ChangeLog:1.128
--- emacs/lisp/mh-e/ChangeLog:1.127     Mon Jan 30 01:32:17 2006
+++ emacs/lisp/mh-e/ChangeLog   Mon Jan 30 03:39:36 2006
@@ -1,5 +1,9 @@
 2006-01-29  Bill Wohler  <address@hidden>
 
+       * 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.
Index: emacs/lisp/mh-e/mh-scan.el
diff -u emacs/lisp/mh-e/mh-scan.el:1.2 emacs/lisp/mh-e/mh-scan.el:1.3
--- emacs/lisp/mh-e/mh-scan.el:1.2      Mon Jan 30 00:29:30 2006
+++ emacs/lisp/mh-e/mh-scan.el  Mon Jan 30 03:39:36 2006
@@ -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 ?^