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

[Miles Bader]

Index: emacs/lisp/gnus/nnmbox.el
diff -c emacs/lisp/gnus/nnmbox.el:1.9 emacs/lisp/gnus/nnmbox.el:1.10
*** emacs/lisp/gnus/nnmbox.el:1.9       Sat Sep  4 13:13:44 2004
--- emacs/lisp/gnus/nnmbox.el   Mon May 30 17:13:58 2005
***************
*** 475,481 ****
      (when (re-search-forward "^X-Gnus-Newsgroup: +\\([^:]+\\):\\([0-9]+\\) "
                             nil t)
        (cons (buffer-substring (match-beginning 1) (match-end 1))
!           (string-to-int
             (buffer-substring (match-beginning 2) (match-end 2)))))))
  
  (defun nnmbox-in-header-p (pos)
--- 475,481 ----
      (when (re-search-forward "^X-Gnus-Newsgroup: +\\([^:]+\\):\\([0-9]+\\) "
                             nil t)
        (cons (buffer-substring (match-beginning 1) (match-end 1))
!           (string-to-number
             (buffer-substring (match-beginning 2) (match-end 2)))))))
  
  (defun nnmbox-in-header-p (pos)
***************
*** 681,687 ****
                    (let (alist)
                      (while (re-search-forward " \\([^:]+\\):\\([0-9]+\\)" 
end-header t)
                        (push (cons (match-string 1)
!                                   (string-to-int (match-string 2))) alist))
                      (nnmbox-insert-newsgroup-line alist))
                  ;; this is really a new article
                  (nnmbox-save-mail
--- 681,687 ----
                    (let (alist)
                      (while (re-search-forward " \\([^:]+\\):\\([0-9]+\\)" 
end-header t)
                        (push (cons (match-string 1)
!                                   (string-to-number (match-string 2))) alist))
                      (nnmbox-insert-newsgroup-line alist))
                  ;; this is really a new article
                  (nnmbox-save-mail