- (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
- (set-buffer "*gnus-uu-body*")
- (goto-char (point-max))
- (insert
- (concat (setq end-string (format "End of %s Digest" name))
- "\n"))
- (insert (concat (make-string (length end-string) ?*) "\n"))
- (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
- (point-min) (point-max) gnus-uu-saved-article-name t)))))
+ (save-excursion
+ (set-buffer "*gnus-uu-pre*")
+ (insert (format "\n\n%s\n\n" (make-string 70 ?-)))
+ (gnus-write-buffer gnus-uu-saved-article-name))
+ (save-excursion
+ (set-buffer "*gnus-uu-body*")
+ (goto-char (point-max))
+ (insert
+ (concat (setq end-string (format "End of %s Digest" name))
+ "\n"))
+ (insert (concat (make-string (length end-string) ?*) "\n"))
+ (write-region
+ (point-min) (point-max) gnus-uu-saved-article-name t))