+ (let* ((oldest-version (cdr (wl-news-previous-version-load)))
+ (current-version (product-version (product-find 'wl-version)))
+ (new-old-version current-version)
+ (buf (get-buffer wl-news-buf-name)))
+ (when buf
+ (if (wl-news-check-news oldest-version wl-news-lang)
+ (if (y-or-n-p "Do you want to see this message again? ")
+ (progn
+ (message "Please M-x wl-news if you want to see it.")
+ (setq new-old-version oldest-version))))
+ (wl-news-previous-version-save
+ current-version new-old-version)
+ (kill-buffer (current-buffer))
+ (if wl-news-winconf
+ (set-window-configuration wl-news-winconf))
+ (kill-buffer buf)
+ (if wl-news-winconf
+ (set-window-configuration wl-news-winconf)))))
+
+(defun wl-news-append-to-folder ()
+ (interactive)
+ (let* ((current-version (product-version (product-find 'wl-version)))
+ (new-old-version current-version)
+ (folder wl-default-folder))
+ (if (or (and (elmo-folder-writable-p
+ (wl-folder-get-elmo-folder folder))
+ (y-or-n-p (format
+ "Do you want to append this message to %s ? "
+ wl-default-folder)))
+ (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 "Cannot append NEWS mail to %s" folder)))))
+
+(defun wl-news-force-exit ()
+ (interactive)
+ (let ((buf))
+ (when (setq buf (get-buffer wl-news-buf-name))
+ (wl-news-previous-version-save
+ (product-version (product-find 'wl-version))
+ (cdr (wl-news-previous-version-load)))
+ (kill-buffer buf)
+ (if wl-news-winconf
+ (set-window-configuration wl-news-winconf)))))
+