2002-01-10 Katsumi Yamaoka <yamaoka@jpl.org>

	* gnus-spec.el (gnus-spec-tab): Deal with wide characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 77e8ab2..b8f8e07 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-spec.el (gnus-spec-tab): Deal with wide characters.
+

 2002-01-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * canlock.el (canlock-string-as-unibyte): New macro.
 2002-01-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * canlock.el (canlock-string-as-unibyte): New macro.

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 56a3b9e..7fa7ad3 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -257,12 +257,20 @@
 (defun gnus-spec-tab (column)
   (if (> column 0)
       `(insert (make-string (max (- ,column (current-column)) 0) ? ))
 (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."
 
 (defun gnus-correct-length (string)
   "Return the correct width of STRING."