🚀 go-pugleaf

The search for vm-mime-encode-headers-words-regexp in
vm-mime-encode-headers may fail, depending on the user's case-table.
Setting case-fold-search to nil will prevent this.

Furthermore, I think the character range in above-mentioned regexp
should extend from \x0 to \x7f only (not including \x80). Or even \x7e
(last printable ASCII character), but \x7f is consistent with how
things are handled in vm-mime.el.

Appended patch is against vm-8.0.1-465.

Ulrich


--- vm-rfaddons.el~	2007-07-18 21:59:49.000000000 +0200
+++ vm-rfaddons.el	2007-07-18 21:59:18.000000000 +0200
@@ -1535,7 +1535,7 @@
   :type '(regexp))
 
 (defcustom vm-mime-encode-headers-words-regexp
-  (let ((8bit-word "\\([^ \t\n\r]*[^\x0-\x80]+[^ \t\n\r]*\\)+"))
+  (let ((8bit-word "\\([^ \t\n\r]*[^\x0-\x7f]+[^ \t\n\r]*\\)+"))
     (concat "\\s-\\(" 8bit-word "\\(\\s-+" 8bit-word "\\)*\\)"))
   "*A regexp matching a set of consecutive words which must be encoded."
   :group 'vm-rfaddons
@@ -1572,7 +1572,9 @@
                            bodysep)
                   hend  (vm-marker hend)))
           ;; search for words containing chars in the upper 8bit range
-          (while (re-search-forward vm-mime-encode-headers-words-regexp hend t)
+          (while
+	      (let ((case-fold-search nil))
+		(re-search-forward vm-mime-encode-headers-words-regexp hend t))
             (setq start (match-beginning 1)
                   end   (vm-marker (match-end 1))
                   charset (or (vm-determine-proper-charset start end)