Commit 667e0ba6 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

Don't assume point-min == 1.
parent 946cca16
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):
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment