From: yamaoka <yamaoka>
Date: Thu, 10 Jan 2002 11:41:54 +0000 (+0000)
Subject: * gnus-vers.el (gnus-revision-number): Increment to 11 in order to force
X-Git-Tag: t-gnus-6_15_4-11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=refs%2Ftags%2Ft-gnus-6_15_4-11;p=elisp%2Fgnus.git-

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