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

[Stefan Monnier]

Index: emacs/lisp/gnus/gnus-sum.el
diff -c emacs/lisp/gnus/gnus-sum.el:1.31 emacs/lisp/gnus/gnus-sum.el:1.32
*** emacs/lisp/gnus/gnus-sum.el:1.31    Mon Apr  8 13:16:21 2002
--- emacs/lisp/gnus/gnus-sum.el Thu Apr 11 23:16:01 2002
***************
*** 2673,2689 ****
           [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)))))
          (goto-char (point-min))
          (push (cons 'replied (and (search-forward "\201" nil t)
!                                   (- (point) 2)))
                pos)
          (goto-char (point-min))
!         (push (cons 'score (and (search-forward "\202" nil t) (- (point) 2)))
                pos)
          (goto-char (point-min))
          (push (cons 'download
!                     (and (search-forward "\203" nil t) (- (point) 2)))
                pos)))
        (setq gnus-summary-mark-positions pos))))
  
--- 2673,2691 ----
           [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) (point-min) 1)))))
          (goto-char (point-min))
          (push (cons 'replied (and (search-forward "\201" nil t)
!                                   (- (point) (point-min) 1)))
                pos)
          (goto-char (point-min))
!         (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) (point-min) 1)))
                pos)))
        (setq gnus-summary-mark-positions pos))))
  
***************
*** 7428,7434 ****
      (save-restriction
        (let* ((buffer-read-only nil)
             (inhibit-point-motion-hooks t)
!            hidden e)
        (setq hidden
              (if (numberp arg)
                  (>= arg 0)
--- 7430,7436 ----
      (save-restriction
        (let* ((buffer-read-only nil)
             (inhibit-point-motion-hooks t)
!            hidden s e)
        (setq hidden
              (if (numberp arg)
                  (>= arg 0)
***************
*** 7439,7449 ****
        (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))
          (setq e (1- (or (search-forward "\n\n" nil t) (point-max)))))
!       (insert-buffer-substring gnus-original-article-buffer 1 e)
        (save-restriction
          (narrow-to-region (point-min) (point))
          (article-decode-encoded-words)
--- 7441,7450 ----
        (when (search-forward "\n\n" nil t)
          (delete-region (point-min) (1- (point))))
        (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 s e)
        (save-restriction
          (narrow-to-region (point-min) (point))
          (article-decode-encoded-words)