Call wl-draft with parent folder in wl-draft-reply

[elisp/wanderlust.git] / wl / wl-message.el

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 1ed057e..cde7f31 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -376,7 +376,7 @@ Returns non-nil if bottom of message."
          (setq entry (car alist)
                alist (cdr alist))
          (goto-char (point-min))
-         (while (re-search-forward (car entry) nil t)
+         (while (re-search-forward (car entry) (+ (point) (nth 4 entry)) t)
            (unless (get-text-property (point) 'keymap)
              (wl-message-add-button
               (match-beginning (nth 1 entry))
@@ -425,6 +425,8 @@ Returns non-nil if bottom of message."
     (wl-message-select-buffer wl-message-buffer)
 
     (set-buffer message-buf)
+    (make-local-variable 'truncate-partial-width-windows)
+    (setq truncate-partial-width-windows nil)
     (setq truncate-lines wl-message-truncate-lines)
     (setq buffer-read-only nil)
     (setq wl-message-buffer-cur-summary-buffer summary-buf)
@@ -504,7 +506,8 @@ Returns non-nil if bottom of message."
 
 (defun wl-message-display-internal (folder number flag
                                           &optional force-reload unread)
-  (let ((elmo-message-fetch-threshold wl-fetch-confirm-threshold))
+  (let ((elmo-message-fetch-threshold wl-fetch-confirm-threshold)
+       (default-mime-charset wl-mime-charset))
     (setq wl-message-buffer-all-header-flag (eq flag 'all-header))
     (prog1 
        (if (eq flag 'as-is)