- (if (equal "queue" group)
- (nnmail-find-file newest)
- (let ((nnmail-file-coding-system
- (if (file-newer-than-file-p file auto)
- (if (member group '("drafts" "delayed"))
- (if maybe-emacs-mule-p
- mm-text-coding-system
- message-draft-coding-system)
- mm-text-coding-system)
- mm-auto-save-coding-system)))
- (nnmail-find-file newest))))
- (save-excursion
- (set-buffer nntp-server-buffer)
- (when maybe-emacs-mule-p
- (goto-char (point-min))
- (if (re-search-forward "[^\000-\177]" nil t)
- ;; Consider the file has been saved as `emacs-mule'.
- (mm-decode-coding-region (point-min) (point-max)
- mm-auto-save-coding-system)
- (mm-decode-coding-region (point-min) (point-max)
- message-draft-coding-system)))
+ (let ((nnmail-file-coding-system
+ (if (file-newer-than-file-p file auto)
+ (if (member group '("drafts" "delayed"))
+ message-draft-coding-system
+ mm-text-coding-system)
+ mm-auto-save-coding-system)))
+ (nnmail-find-file newest)))
+ (with-current-buffer nntp-server-buffer