mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-update-summary-mark-positions, gnus-summary-toggle-header):

Browse source 
Don't assume point-min == 1.
This commit is contained in:
Stefan Monnier 2002-04-12 03:16:26 +00:00
parent 946cca1628
commit 667e0ba62f
2 changed files with 21 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/ChangeLog
View file

@ -1,3 +1,14 @@
2002-04-11 Stefan Monnier <monnier@cs.yale.edu>
* gnus-sum.el (gnus-update-summary-mark-positions)
(gnus-summary-toggle-header):
* gnus-uu.el (gnus-uu-binhex-article, gnus-uu-reginize-string)
(gnus-uu-expand-numbers, gnus-uu-post-make-mime)
(gnus-uu-post-encoded):
* nnfolder.el (nnfolder-possibly-change-group):
* nnimap.el (nnimap-retrieve-headers):
* nnmbox.el (nnmbox-create-mbox): Don't assume point-min == 1.
2002-04-08 Stefan Monnier <monnier@cs.yale.edu>
* nnml.el (nnml-save-nov, nnml-generate-nov-file):

19
lisp/gnus/gnus-sum.el
View file

@ -2673,17 +2673,19 @@ buffer that was in action when the last article was fetched."
[0 "" "" "" "" "" 0 0 "" nil] 0 nil 128 t nil "" nil 1)
(goto-char (point-min))
(setq pos (list (cons 'unread (and (search-forward "\200" nil t)
(- (point) 2)))))
(- (point) (point-min) 1)))))
(goto-char (point-min))
(push (cons 'replied (and (search-forward "\201" nil t)
(- (point) 2)))
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
(push (cons 'score (and (search-forward "\202" nil t) (- (point) 2)))
(push (cons 'score (and (search-forward "\202" nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
(push (cons 'download
(and (search-forward "\203" nil t) (- (point) 2)))
(and (search-forward "\203" nil t)
(- (point) (point-min) 1)))
pos)))
(setq gnus-summary-mark-positions pos))))
@ -7428,7 +7430,7 @@ If ARG is a negative number, hide the unwanted header lines."
(save-restriction
(let* ((buffer-read-only nil)
(inhibit-point-motion-hooks t)
hidden e)
hidden s e)
(setq hidden
(if (numberp arg)
(>= arg 0)
@ -7439,11 +7441,10 @@ If ARG is a negative number, hide the unwanted header lines."
(when (search-forward "\n\n" nil t)
(delete-region (point-min) (1- (point))))
(goto-char (point-min))
(save-excursion
(set-buffer gnus-original-article-buffer)
(goto-char (point-min))
(with-current-buffer gnus-original-article-buffer
(goto-char (setq s (point-min)))
(setq e (1- (or (search-forward "\n\n" nil t) (point-max)))))
(insert-buffer-substring gnus-original-article-buffer 1 e)
(insert-buffer-substring gnus-original-article-buffer s e)
(save-restriction
(narrow-to-region (point-min) (point))
(article-decode-encoded-words)