Added `r-list-name' in `let' bind.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 452b1b8..c591c9a 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -270,7 +270,7 @@ Return symbol, not list.  Use symbol-name"
 (defun wl-draft-reply (buf no-arg summary-buf)
   ""
 ;;;(save-excursion
-  (let (r-list
+  (let (r-list r-list-name
        (mime-header-lexical-analyzer '(eword-analyze-quoted-string
                                        eword-analyze-domain-literal
                                        eword-analyze-comment