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

[John Paul Wallington]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     John Paul Wallington <jpw>      08/06/08 21:48:06

Modified files:
        lisp/mh-e      : mh-comp.el 

Log message:
        (mh-letter-mode-syntax-table): Define within defvar.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-comp.el?cvsroot=emacs&r1=1.64&r2=1.65

Patches:
Index: mh-comp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-comp.el,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -b -r1.64 -r1.65
--- mh-comp.el  6 May 2008 03:56:45 -0000       1.64
+++ mh-comp.el  8 Jun 2008 21:48:05 -0000       1.65
@@ -116,15 +116,12 @@
   "Regexp of header lines to remove before offering a message as a new 
draft\\<mh-folder-mode-map>.
 Used by the \\[mh-edit-again] and \\[mh-extract-rejected-mail] commands.")
 
-(defvar mh-letter-mode-syntax-table nil
+(defvar mh-letter-mode-syntax-table
+  (let ((syntax-table (make-syntax-table text-mode-syntax-table)))
+    (modify-syntax-entry ?% "." syntax-table)
+    syntax-table)
   "Syntax table used by MH-E while in MH-Letter mode.")
 
-(if mh-letter-mode-syntax-table
-    ()
-  (setq mh-letter-mode-syntax-table
-        (make-syntax-table text-mode-syntax-table))
-  (modify-syntax-entry ?% "." mh-letter-mode-syntax-table))
-
 (defvar mh-send-args ""
   "Extra args to pass to \"send\" command.")