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