- (let* ((oldest-version (cdr (wl-news-previous-version-load)))
- (current-version (product-version (product-find 'wl-version)))
- (new-old-version current-version))
- (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))
- (if (y-or-n-p "Do you want this message for a mail? ")
- (or (wl-news-send-news oldest-version wl-news-lang)
- (error
- (format "Cannot append NEWS mail to %s" wl-default-folder))))))
- (wl-news-previous-version-save
- current-version new-old-version)
- (kill-buffer (current-buffer))
- (if wl-news-winconf
- (set-window-configuration wl-news-winconf))))
+ (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
+ (format "Cannot append NEWS mail to %s" folder))))))