Don't use current-column to find the horizontal position.

It's fragile in the presence of \003 characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f24ce7f..3414778 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * gnus-art.el (article-date-ut): Protect against articles with no Date
        header.
+       (article-update-date-lapsed): Don't use current-column to find the
+       horizontal position.  It's fragile in the presence of \003 characters.
 
        * gnus-start.el (gnus-read-active-file-1): Remove dead parameter infos.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 07eabd9..af47daf 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3645,7 +3645,7 @@ function and want to see what the date was before converting."
           (set-buffer (window-buffer w))
           (when (eq major-mode 'gnus-article-mode)
             (let ((old-line (count-lines (point-min) (point)))
-                  (old-column (current-column)))
+                  (old-column (- (point) (line-beginning-position))))
               (goto-char (point-min))
               (while (re-search-forward "^Date:" nil t)
                 (let ((type (get-text-property (match-beginning 0) 'gnus-date-type)))