+ ;; encode
+ (let ((mime-header-encode-method-alist
+ '((eword-encode-unstructured-field-body))))
+ (mime-edit-translate-buffer))
+ (wl-draft-get-header-delimiter t)
+ (setq ret
+ (and (elmo-folder-writable-p
+ (wl-folder-get-elmo-folder folder))
+ (elmo-folder-append-buffer
+ (wl-folder-get-elmo-folder folder) t)))
+ (wl-draft-hide send-buffer)
+ (wl-draft-delete send-buffer))
+ ret))
+
+;;; wl-news-mode
+
+(defvar wl-news-buf-name "NEWS")
+(defvar wl-news-mode-map nil)
+(defvar wl-news-winconf nil)
+(defvar wl-news-buffer-oldest-version nil)
+(make-variable-buffer-local 'wl-news-buffer-oldest-version)
+
+(unless wl-news-mode-map
+ (setq wl-news-mode-map (make-sparse-keymap))
+ (define-key wl-news-mode-map "q" 'wl-news-exit)
+ (define-key wl-news-mode-map "Q" 'wl-news-force-exit)
+ (define-key wl-news-mode-map "\C-xk" 'wl-news-exit)
+ (define-key wl-news-mode-map "a" 'wl-news-show-all)
+ (define-key wl-news-mode-map "m" 'wl-news-append-to-folder)
+ (define-key wl-news-mode-map "\C-m" 'wl-news-next-line)
+ (define-key wl-news-mode-map " " 'wl-news-next-page))
+
+(defun wl-news-mode ()
+ "Mode for Wanderlust NEWS(.ja)."
+ (interactive)
+ (kill-all-local-variables)
+ (use-local-map wl-news-mode-map)
+ (setq major-mode 'wl-news-mode)
+ (setq mode-name "NEWS")
+ (setq buffer-read-only t))
+
+(defun wl-news (&optional arg)
+ (interactive "P")
+ (remove-hook 'wl-hook 'wl-news)
+ (let* ((previous-version (if arg wl-news-default-previous-version
+ (cdr (wl-news-previous-version-load))))
+ (lang wl-news-lang)
+ window-lines lines)
+ (if (or (get-buffer wl-news-buf-name)
+ (if (wl-news-check-news previous-version wl-news-lang)
+ (progn
+ (setq wl-news-winconf (current-window-configuration))
+ (set-buffer (get-buffer-create wl-news-buf-name))
+ (wl-news-mode)
+ (setq wl-news-buffer-oldest-version previous-version)
+ (buffer-disable-undo (current-buffer))
+ ;; insert news
+ (let ((buffer-read-only nil))
+ (insert "--- Wanderlust NEWS --- press 'a' to show all NEWS\n")
+ (insert " press 'm' to mail this NEWS to your folder\n")
+ (insert " press 'q' to quit\n")
+ (insert " press 'Q' to force quit\n\n")
+ (while (car lang)
+ (wl-news-append-news
+ (car lang) previous-version t)
+ (setq lang (cdr lang))))
+ t)
+ (message "No NEWS.")
+ nil))
+ (progn
+ (switch-to-buffer wl-news-buf-name)
+ (delete-other-windows)
+ (goto-char (point-min))))))
+
+(defun wl-news-next-line ()
+ (interactive)
+ (scroll-up 1))
+
+(defun wl-news-next-page ()
+ (interactive)
+ (scroll-up))
+
+(defun wl-news-show-all ()
+ (interactive)
+ (when (eq major-mode 'wl-news-mode)
+ (kill-buffer (current-buffer))
+ (wl-news t)))
+
+(defun wl-news-exit ()
+ (interactive)
+ (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
+ (format "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)))))
+