(let ((filename (expand-file-name
wl-news-version-file-name
elmo-msgdb-directory))
- (tmp-buffer (get-buffer-create " *wl-news-version-tmp*")))
+ (tmp-buffer (get-buffer-create " *wl-news-version-tmp*"))
+ print-length print-level)
(set-buffer tmp-buffer)
(erase-buffer)
(prin1 (cons current-version previous-version) tmp-buffer)
(and (elmo-folder-writable-p
(wl-folder-get-elmo-folder folder))
(elmo-folder-append-buffer
- (wl-folder-get-elmo-folder folder) t)))
+ (wl-folder-get-elmo-folder folder))))
(wl-draft-hide send-buffer)
(wl-draft-delete send-buffer))
ret))
(setq folder
(wl-summary-read-folder wl-default-folder "to append ")))
(or (wl-news-send-news wl-news-buffer-oldest-version wl-news-lang folder)
- (error
- (format "Cannot append NEWS mail to %s" folder))))))
+ (error "Cannot append NEWS mail to %s" folder)))))
(defun wl-news-force-exit ()
(interactive)