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

[Stefan Monnier]

Index: emacs/lisp/gnus/gnus-uu.el
diff -c emacs/lisp/gnus/gnus-uu.el:1.14 emacs/lisp/gnus/gnus-uu.el:1.15
*** emacs/lisp/gnus/gnus-uu.el:1.14     Thu Mar 21 14:11:23 2002
--- emacs/lisp/gnus/gnus-uu.el  Thu Apr 11 23:13:23 2002
***************
*** 1003,1009 ****
        (if (looking-at gnus-uu-binhex-begin-line)
            (progn
              (setq state (list 'begin))
!             (write-region 1 1 gnus-uu-binhex-article-name))
          (setq state (list 'middle)))
        (goto-char (point-max))
        (re-search-backward (concat gnus-uu-binhex-body-line "\\|"
--- 1003,1010 ----
        (if (looking-at gnus-uu-binhex-begin-line)
            (progn
              (setq state (list 'begin))
!             (write-region (point-min) (point-min)
!                           gnus-uu-binhex-article-name))
          (setq state (list 'middle)))
        (goto-char (point-max))
        (re-search-backward (concat gnus-uu-binhex-body-line "\\|"
***************
*** 1115,1121 ****
      (while (re-search-forward "[ \t]+" nil t)
        (replace-match "[ \t]+" t t))
  
!     (buffer-substring 1 (point-max))))
  
  (defun gnus-uu-get-list-of-articles (n)
    ;; If N is non-nil, the article numbers of the N next articles
--- 1116,1122 ----
      (while (re-search-forward "[ \t]+" nil t)
        (replace-match "[ \t]+" t t))
  
!     (buffer-substring (point-min) (point-max))))
  
  (defun gnus-uu-get-list-of-articles (n)
    ;; If N is non-nil, the article numbers of the N next articles
***************
*** 1211,1217 ****
           (format "%06d"
                   (string-to-int (buffer-substring
                                   (match-beginning 0) (match-end 0))))))
!       (setq string (buffer-substring 1 (point-max)))
        (setcar (car string-list) string)
        (setq string-list (cdr string-list))))
      out-list))
--- 1212,1218 ----
           (format "%06d"
                   (string-to-int (buffer-substring
                                   (match-beginning 0) (match-end 0))))))
!       (setq string (buffer-substring (point-min) (point-max)))
        (setcar (car string-list) string)
        (setq string-list (cdr string-list))))
      out-list))
***************
*** 1949,1955 ****
      (goto-char (point-min))
      (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
      (forward-line -1)
!     (narrow-to-region 1 (point))
      (unless (mail-fetch-field "mime-version")
        (widen)
        (insert "MIME-Version: 1.0\n"))
--- 1950,1956 ----
      (goto-char (point-min))
      (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
      (forward-line -1)
!     (narrow-to-region (point-min) (point))
      (unless (mail-fetch-field "mime-version")
        (widen)
        (insert "MIME-Version: 1.0\n"))
***************
*** 2039,2045 ****
        (erase-buffer)
        (insert-buffer-substring post-buf beg-binary end-binary)
        (goto-char (point-min))
!       (setq length (count-lines 1 (point-max)))
        (setq parts (/ length gnus-uu-post-length))
        (unless (< (% length gnus-uu-post-length) 4)
        (incf parts)))
--- 2040,2046 ----
        (erase-buffer)
        (insert-buffer-substring post-buf beg-binary end-binary)
        (goto-char (point-min))
!       (setq length (count-lines (point-min) (point-max)))
        (setq parts (/ length gnus-uu-post-length))
        (unless (< (% length gnus-uu-post-length) 4)
        (incf parts)))
***************
*** 2052,2058 ****
      (re-search-forward
       (concat "^" (regexp-quote mail-header-separator) "$") nil t)
      (beginning-of-line)
!     (setq header (buffer-substring 1 (point)))
  
      (goto-char (point-min))
      (when gnus-uu-post-separate-description
--- 2053,2059 ----
      (re-search-forward
       (concat "^" (regexp-quote mail-header-separator) "$") nil t)
      (beginning-of-line)
!     (setq header (buffer-substring (point-min) (point)))
  
      (goto-char (point-min))
      (when gnus-uu-post-separate-description