# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1212961685 0
# Node ID c12a32810ea6d0a820614029a28912378cad95ab
# Parent  5f60e74ca391b2c40185e6a516bb81acb85ee656
(mh-letter-mode-syntax-table): Define within defvar.

diff -r 5f60e74ca391 -r c12a32810ea6 lisp/mh-e/mh-comp.el
--- a/lisp/mh-e/mh-comp.el	Sun Jun 08 21:47:08 2008 +0000
+++ b/lisp/mh-e/mh-comp.el	Sun Jun 08 21:48:05 2008 +0000
@@ -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.")