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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-soup.el
diff -c emacs/lisp/gnus/gnus-soup.el:1.7 emacs/lisp/gnus/gnus-soup.el:1.8
*** emacs/lisp/gnus/gnus-soup.el:1.7    Sat Sep  4 13:13:43 2004
--- emacs/lisp/gnus/gnus-soup.el        Mon May 30 17:13:58 2005
***************
*** 349,357 ****
         (packer (if (< (string-match "%s" packer)
                        (string-match "%d" packer))
                     (format packer files
!                            (string-to-int (gnus-soup-unique-prefix dir)))
                   (format packer
!                          (string-to-int (gnus-soup-unique-prefix dir))
                           files)))
         (dir (expand-file-name dir)))
      (gnus-make-directory dir)
--- 349,357 ----
         (packer (if (< (string-match "%s" packer)
                        (string-match "%d" packer))
                     (format packer files
!                            (string-to-number (gnus-soup-unique-prefix dir)))
                   (format packer
!                          (string-to-number (gnus-soup-unique-prefix dir))
                           files)))
         (dir (expand-file-name dir)))
      (gnus-make-directory dir)
***************
*** 385,391 ****
                        (and (eq (preceding-char) ?\t)
                             (gnus-soup-field))
                        (and (eq (preceding-char) ?\t)
!                            (string-to-int (gnus-soup-field))))
                areas)
          (when (eq (preceding-char) ?\t)
            (beginning-of-line 2)))
--- 385,391 ----
                        (and (eq (preceding-char) ?\t)
                             (gnus-soup-field))
                        (and (eq (preceding-char) ?\t)
!                            (string-to-number (gnus-soup-field))))
                areas)
          (when (eq (preceding-char) ?\t)
            (beginning-of-line 2)))
***************
*** 535,541 ****
                (error "Bad header"))
              (forward-line 1)
              (setq beg (point)
!                   end (+ (point) (string-to-int
                                    (buffer-substring
                                     (match-beginning 1) (match-end 1)))))
              (switch-to-buffer tmp-buf)
--- 535,541 ----
                (error "Bad header"))
              (forward-line 1)
              (setq beg (point)
!                   end (+ (point) (string-to-number
                                    (buffer-substring
                                     (match-beginning 1) (match-end 1)))))
              (switch-to-buffer tmp-buf)