From: Simon Josefsson <jas@extundo.com>
Date: Tue, 18 Sep 2001 21:35:43 +0000 (+0000)
Subject: 2001-09-18  Simon Josefsson  <jas@extundo.com>
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=afe7c3da8930c54e1e9ff83682e3fa737c359118;p=gnus

2001-09-18  Simon Josefsson  <jas@extundo.com>

	* gnus-spec.el (gnus-correct-pad-form): Remove until papers are
	signed.
	(gnus-parse-simple-format): Don't use it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5921edbb6..a846b9ef1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-18  Simon Josefsson  <jas@extundo.com>
+
+	* gnus-spec.el (gnus-correct-pad-form): Remove until papers are
+	signed.
+	(gnus-parse-simple-format): Don't use it.
+
 2001-09-17  Miles Bader  <miles@gnu.org>
 
 	* gnus-srvr.el (gnus-server-insert-server-line): Don't let an
diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 4682e9b87..4c0a87bb8 100644
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -345,27 +345,6 @@
        (if (equal val ,ignore-value)
 	   "" val))))
 
-(defun gnus-correct-pad-form (el pad-width)
-  "Return a form that pads EL to PAD-WIDTH accounting for multi-column
-characters correctly. This is because `format' may pad to columns or to
-characters when given a pad value."
-  (let ((pad (abs pad-width))
-	(side (< 0 pad-width)))
-    (if (symbolp el)
-	`(let ((need (- ,pad (gnus-correct-length ,el))))
-	   (if (> need 0)
-	       (concat ,(when side '(make-string need ?\ ))
-		       ,el
-		       ,(when (not side) '(make-string need ?\ )))
-	     ,el))
-      `(let* ((val (eval ,el))
-	      (need (- ,pad (gnus-correct-length ,el))))
-	 (if (> need 0)
-	     (concat ,(when side '(make-string need ?\ ))
-		     ,el
-		     ,(when (not side) '(make-string need ?\ )))
-	   ,el)))))
-
 (defun gnus-parse-format (format spec-alist &optional insert)
   ;; This function parses the FORMAT string with the help of the
   ;; SPEC-ALIST and returns a list that can be eval'ed to return the
@@ -531,14 +510,10 @@ characters when given a pad value."
 	    (setq elem '("*" ?s))))
 	  (setq elem-type (cadr elem))
 	  ;; Insert the new format elements.
-	  (when (and pad-width
-		     (not (and (featurep 'xemacs)
-			       gnus-use-correct-string-widths)))
+	  (when pad-width
 	    (insert (number-to-string pad-width)))
 	  ;; Create the form to be evaled.
-	  (if (or max-width cut-width ignore-value
-		  (and (featurep 'xemacs)
-		       gnus-use-correct-string-widths))
+	  (if (or max-width cut-width ignore-value)
 	      (progn
 		(insert ?s)
 		(let ((el (car elem)))
@@ -552,8 +527,6 @@ characters when given a pad value."
 		    (setq el (gnus-tilde-cut-form el cut-width)))
 		  (when max-width
 		    (setq el (gnus-tilde-max-form el max-width)))
-		  (when pad-width
-		    (setq el (gnus-correct-pad-form el pad-width)))
 		  (push el flist)))
 	    (insert elem-type)
 	    (push (car elem) flist))))