[Mew-Win32 02986] mew-smtp-process-prefix error

[Takanori YAMAO]

こんにちは。山尾ともうします。

1.95b97にしたところ，summaryモードでiすると次のようなエラーが出
るようになりました。

Symbol's value as variable is void: mew-smtp-process-prefix

*Mew degug*には次のように出ました。

<GRTG>
+OK <13857.979542827 at example.com>
<CAPA>
-ERR authorization first
<USER>
+OK 
<PASS>
+OK 
<LIST>
+OK 
<LIST>
.
<QUIT>
+OK 
<<SENTINEL>>
exited abnormally with code 256

1.95b95では出ませんので，mew-smtp.elを見てみたところ，74行目の

(defconst mew-smtp-process-prefix "mew-smtp-process-")

が1.95b95以降ではないのですが，これは関係ありますでしょうか？
また，同じ状況が生じる人はいらっしゃいませんでしょうか。

#.mewも添付してみます。

--
山尾貴則 (YAMAO, Takanori)--------yama at example.com
fingerprint : 21E9 39B0 0433 F68A 7193 92BB B339 3122 CF82 5CCD
-------------- next part --------------
;Mewの設定。

(setq mew-replyto-to-list '("Reply-To:"))

;mew-nmz
(eval-after-load "mew" '(require 'mew-nmz))

;; offline mode
(setq mew-auto-get nil)
(setq mew-auto-flush-queue t)

(setq mew-fcc "+backup")

;; printing (for Meadow or Mule for Windows)
(setq mew-w32-prog-print     "notepad.exe")
(setq mew-w32-prog-print-arg "/p")
(if (featurep 'meadow)
    (setq mew-w32-cs-print	 'shift_jis-dos)  ; Japanese
  (setq mew-w32-cs-print       *sjis*dos))	  ; Japanese
(define-process-argument-editing "/notepad\.exe$"
  (lambda (x)
    (general-process-argument-editing-function x nil t)))

;; colorful highlighting
(eval-after-load "mew" '(require 'mew-cite-color))

;; illegal subject (CAUTION : This behavior is OUT OF RFC SPECIFICATION!)
(setq mew-decode-quoted t)

;ras
(require 'rascon)

(setq rascon-use-dialkeeper t)
(setq rascon-redial-time 15)
(setq rascon-redial-num 3)
(setq rascon-use-mode-line t)

;mhc&mew-offlineのための設定
(require 'mew-offline)

;mew-offline-toggle-hangup
(global-set-key "\C-ch" 'mew-offline-toggle-hangup)
(setq mew-offline-use-dialup t)
(setq mew-offline-use-hangup t)

(eval-after-load "mew" '(require 'mhc))
(setq mhc-mailer-package 'mew)
(setq mhc-use-week-separator 6)
(autoload 'mhc-mode "mhc" nil t)
(add-hook 'mew-virtual-mode-hook 'mhc-mode)

(add-hook 'mew-summary-mode-hook
	  '(lambda ()
	    (progn
	      (define-key mew-summary-mode-map "I" 'mew-offline-summary-get)
	      (define-key mew-summary-mode-map "\C-c\M-c"
		'mew-offline-summary-flush-queue)
	      (define-key mew-summary-mode-map "A" ;ここはxciteの設定。
		'(lambda ()
		   (interactive)
		   (mew-summary-reply)
		   (xcite-yank-cur-msg)))
	      (mhc-mode))))



;Mewのドラフトモードで特定のフォルダ以下のFromからメールアドレスを
;抽出する。To:の部分で実行すれば一括して同じメールを送ることができる。
;白井さんに教えてもらった。[Mew-Win32 02804]にある。

(defun mew-insert-all-from-address (&optional fld)
  (interactive)
  (setq fld (or fld (mew-input-folder (mew-inbox-folder))))
  (let ((msgs (directory-files (mew-expand-folder fld) nil "^[1-9][0-9]*$" 'no-sort))
	froms from)
    (save-excursion
      (while msgs
	(mew-set-buffer-tmp)
	(mew-insert-message fld (car msgs) mew-cs-autoconv
			    mew-header-reasonable-size)
	(setq msgs (cdr msgs))
	(setq from (mew-header-parse-address mew-from:))
	(if from (setq froms (cons from froms))))
      (setq froms (mew-uniq-list froms)))
    (insert (mapconcat (function identity) (sort froms 'string<) ", "))))

;select-x-face
(require 'select-xface)
(setq mew-draft-mode-hook	; mewの場合
      '(lambda ()
	(define-key mew-draft-mode-map "\C-c\C-y" 'xcite-yank-cur-msg)
	(delete-other-windows)
	(define-key mew-draft-body-map "\C-c\C-i" 'insert-signature-eref)
	(define-key mew-draft-body-map "\C-c\C-x" 'select-xface)
	(auto-fill-mode 1) ;ここから下はMewでの自動改行の設定
	(setq fill-column 64  ;; ここの数字をお好みに合わせて
	      tab-width 4)      ;; TAB もお好みで
	(wrap-function-to-control-ime 'mew-draft-kill t nil)
	(wrap-function-to-control-ime 'mew-draft-send-message t nil)))

;addrbook
(setq mew-use-petname t)
(setq mail-citation-hook nil)
(setq mew-use-folders-file-p t)
(setq mew-header-max-depth 50)
(setq mew-signature-insert-last nil)

;xcite
(autoload 'xcite "xcite" "Exciting cite" t)
(autoload 'xcite-yank-cur-msg "xcite" "Exciting cite" t)
(autoload 'xcite-indent-citation "xcite")
(setq message-citation-line-function nil
      message-indent-citation-function
      'xcite-indent-citation)
(global-set-key "\C-c\C-y" 'xcite-yank-cur-msg)

;;; c-sig
(autoload 'add-signature "c-sig" "c-sig" t)
(autoload 'delete-signature "c-sig" "c-sig" t)
(autoload 'insert-signature-eref "c-sig" "c-sig" t)
(autoload 'insert-signature-automatically "c-sig" "c-sig" t)
(autoload 'insert-signature-randomly "c-sig" "c-sig" t)
(setq sig-insert-end nil)

;mew-browse
(require 'mew-browse)

(setq mew-config-alist
      '(("formal"
       ("pop-delete" . t)
       ("header-alist" . (("X-cite-me:" . "山尾"))))
	("default"
	("smtp-server" . "smtp.server")
	 ("user" . "myname")
	 ("name" . "Takanori YAMAO")
	 ("inbox-folder" . "+inbox")
	 ("mail-domain" . "socgate.sal.tohoku.ac.jp")
	 ("msgid-domain" . "socgate.sal.tohoku.ac.jp")
	 ("pop-auth" . pass)
	 ("pop-size" . 0)
	 ("pop-server" . "pop.server")
	 ("pop-user" . "myname")
	 ("pop-delete" . t)
	 ("header-alist" . (("X-cite-me:" . "やま"))))))

(setq mew-debug t)

;; password caching
(setq mew-use-cached-passwd t)
(setq mew-use-timer nil)
(setq mew-scan-form-list
      '((("+inbox")
	 (type (5 date) " ""|"" " (-4 time) " ""|"" " (14 from) " ""|"" " (0 subj)) 50)
	(("+yatex")
	 (type (5 date) " ""|"" " (-4 time) " ""|"" " (14 from) " ""|"" " (0 subj)) 47)
	(t
	 (type (5 date) " ""|"" " (-4 time) " ""|"" " (14 from) " ""|"" " (0 subj)) 50)))

(setq mew-use-fancy-thread t)
(setq mew-fancy-thread-indent-strings ["┣" "┗" "┃" "　"])
(setq mew-use-thread-separator t)
(setq mew-thread-separator "     ---------------------------------")

(setq mew-pop-biff-interval 5)
(setq mew-use-biff t)