Mercurial > hg > xemacs-beta
diff lisp/vm/vm-summary.el @ 30:ec9a17fef872 r19-15b98
Import from CVS: tag r19-15b98
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:52:29 +0200 |
parents | 441bb1e64a06 |
children | 05472e90ae02 |
line wrap: on
line diff
--- a/lisp/vm/vm-summary.el Mon Aug 13 08:51:58 2007 +0200 +++ b/lisp/vm/vm-summary.el Mon Aug 13 08:52:29 2007 +0200 @@ -201,10 +201,10 @@ ;; what we want. ;; ;; 1. We need to avoid having the su-start-of - ;; and su-end-of market clumping together at + ;; and su-end-of markers clumping together at ;; the start position. ;; - ;; 2. We want the window point market (w->pointm + ;; 2. We want the window point marker (w->pointm ;; in the Emacs display code) to move to the ;; start of the summary entry if it is ;; anywhere within the su-start-of to @@ -735,7 +735,8 @@ (vm-set-year-of m (substring date (match-beginning 5) (match-end 5))) (if (match-beginning 6) (vm-set-zone-of m (substring date (match-beginning 6) - (match-end 6))))) + (match-end 6))) + (vm-set-zone-of m ""))) (t (setq vector (vm-parse-date date)) (vm-set-weekday-of m (elt vector 0))