From 9b61f27a0c21204d73ae7dbb8edc77a9eb51d0db Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 10 Jan 2002 11:41:54 +0000 Subject: [PATCH] * gnus-vers.el (gnus-revision-number): Increment to 11 in order to force update cached format specs. * gnus-spec.el (gnus-spec-tab): Deal with wide characters. --- ChangeLog | 7 +++++++ lisp/gnus-spec.el | 20 ++++++++++++++------ lisp/gnus-vers.el | 2 +- 3 files changed, 22 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index f074ed4..3b86b60 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,12 @@ 2002-01-10 Katsumi Yamaoka + * lisp/gnus-vers.el (gnus-revision-number): Increment to 11 in + order to force update cached format specs. + + * lisp/gnus-spec.el (gnus-spec-tab): Deal with wide characters. + +2002-01-10 Katsumi Yamaoka + * lisp/message.el (message-strip-forbidden-properties): Don't strip properties when the invisible MIME part is inserted. diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index 9303cb3..a931c83 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -289,12 +289,20 @@ (defun gnus-spec-tab (column) (if (> column 0) `(insert (make-string (max (- ,column (current-column)) 0) ? )) - `(progn - (if (> (current-column) ,(abs column)) - (delete-region (point) - (- (point) (- (current-column) ,(abs column)))) - (insert (make-string (max (- ,(abs column) (current-column)) 0) - ? )))))) + (let ((column (abs column))) + (if gnus-use-correct-string-widths + `(progn + (if (> (current-column) ,column) + (while (progn + (delete-backward-char 1) + (> (current-column) ,column)))) + (insert (make-string (max (- ,column (current-column)) 0) ? ))) + `(progn + (if (> (current-column) ,column) + (delete-region (point) + (- (point) (- (current-column) ,column))) + (insert (make-string (max (- ,column (current-column)) 0) + ? )))))))) (defun gnus-correct-length (string) "Return the correct width of STRING." diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index a53dc26..85237f2 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -34,7 +34,7 @@ (require 'product) (provide 'gnus-vers) -(defconst gnus-revision-number "10" +(defconst gnus-revision-number "11" "Revision number for this version of gnus.") ;; Product information of this gnus. -- 1.7.10.4