[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-spec.el
diff -c emacs/lisp/gnus/gnus-spec.el:1.9 emacs/lisp/gnus/gnus-spec.el:1.10
*** emacs/lisp/gnus/gnus-spec.el:1.9    Mon Nov  1 23:06:34 2004
--- emacs/lisp/gnus/gnus-spec.el        Sun Dec 26 23:33:51 2004
***************
*** 275,295 ****
  
  (defun gnus-spec-tab (column)
    (if (> column 0)
!       `(insert (make-string (max (- ,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."
--- 275,289 ----
  
  (defun gnus-spec-tab (column)
    (if (> column 0)
!       `(insert-char ?  (max (- ,column (current-column)) 0))
      (let ((column (abs column)))
!       `(if (> (current-column) ,column)
!          (let ((end (point)))
!            (if (= (move-to-column ,column) ,column)
!                (delete-region (point) end)
!              (delete-region (1- (point)) end)
!              (insert " ")))
!        (insert-char ?  (max (- ,column (current-column)) 0))))))
  
  (defun gnus-correct-length (string)
    "Return the correct width of STRING."