From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 10 Jan 2002 11:11:02 +0000 (+0000)
Subject: 2002-01-10  Katsumi Yamaoka  <yamaoka@jpl.org>
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=338579d48b5692b24a1a895e4f26d8a62193192a;p=gnus

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 77e8ab23b..b8f8e0742 100644
--- 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.
diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 56a3b9ee5..7fa7ad3b6 100644
--- 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) ? ))
-    `(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."