Mercurial > hg > xemacs-beta

diff lisp/utils/mail-extr.el @ 6:27bc7f280385 r19-15b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b4
author cvs
date Mon, 13 Aug 2007 08:47:15 +0200
parents ac2d302a0011
children 0293115a14e9
line wrap: on
line diff
--- a/lisp/utils/mail-extr.el	Mon Aug 13 08:46:57 2007 +0200
+++ b/lisp/utils/mail-extr.el	Mon Aug 13 08:47:15 2007 +0200
@@ -1171,7 +1171,8 @@
 
       (setq %-pos (nreverse %-pos))
       ;; RFC 1034 doesn't approve of this, oh well:
-      (downcase-region (or (car %-pos) @-pos (point-max)) (point-max))
+      ;; Neither do we, sb/lmi
+      ;; (downcase-region (or (car %-pos) @-pos (point-max)) (point-max))
       (cond (%-pos			; implies @-pos valid
 	     (setq temp %-pos)
 	     (catch 'truncated