* 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.

diff --git a/ChangeLog b/ChangeLog
index f074ed4..3b86b60 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2002-01-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * 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  <yamaoka@jpl.org>
+
        * 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 (file)
--- 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 (file)
--- 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.