[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-uu.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-uu.el |
Date: |
Tue, 02 Aug 2005 03:21:09 -0400 |
Index: emacs/lisp/gnus/gnus-uu.el
diff -c emacs/lisp/gnus/gnus-uu.el:1.19 emacs/lisp/gnus/gnus-uu.el:1.20
*** emacs/lisp/gnus/gnus-uu.el:1.19 Mon Jul 4 17:55:14 2005
--- emacs/lisp/gnus/gnus-uu.el Tue Aug 2 07:21:08 2005
***************
*** 917,932 ****
(if (and message-forward-as-mime gnus-uu-digest-buffer)
(with-current-buffer gnus-uu-digest-buffer
(erase-buffer)
! (insert-buffer "*gnus-uu-pre*")
(goto-char (point-max))
! (insert-buffer "*gnus-uu-body*"))
(save-excursion
(set-buffer "*gnus-uu-pre*")
(insert (format "\n\n%s\n\n" (make-string 70 ?-)))
(if gnus-uu-digest-buffer
(with-current-buffer gnus-uu-digest-buffer
(erase-buffer)
! (insert-buffer "*gnus-uu-pre*"))
(let ((coding-system-for-write mm-text-coding-system))
(gnus-write-buffer gnus-uu-saved-article-name))))
(save-excursion
--- 917,932 ----
(if (and message-forward-as-mime gnus-uu-digest-buffer)
(with-current-buffer gnus-uu-digest-buffer
(erase-buffer)
! (insert-buffer-substring "*gnus-uu-pre*")
(goto-char (point-max))
! (insert-buffer-substring "*gnus-uu-body*"))
(save-excursion
(set-buffer "*gnus-uu-pre*")
(insert (format "\n\n%s\n\n" (make-string 70 ?-)))
(if gnus-uu-digest-buffer
(with-current-buffer gnus-uu-digest-buffer
(erase-buffer)
! (insert-buffer-substring "*gnus-uu-pre*"))
(let ((coding-system-for-write mm-text-coding-system))
(gnus-write-buffer gnus-uu-saved-article-name))))
(save-excursion
***************
*** 939,945 ****
(if gnus-uu-digest-buffer
(with-current-buffer gnus-uu-digest-buffer
(goto-char (point-max))
! (insert-buffer "*gnus-uu-body*"))
(let ((coding-system-for-write mm-text-coding-system)
(file-name-coding-system nnmail-pathname-coding-system))
(write-region
--- 939,945 ----
(if gnus-uu-digest-buffer
(with-current-buffer gnus-uu-digest-buffer
(goto-char (point-max))
! (insert-buffer-substring "*gnus-uu-body*"))
(let ((coding-system-for-write mm-text-coding-system)
(file-name-coding-system nnmail-pathname-coding-system))
(write-region
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-uu.el,
Miles Bader <=