[Mew-dist 2219] mew and telnet

[Yasuyuki Nakamura]

こんにちは、中村＠名大 です。

サブジェクトが適当かどうかわからないのですが...

Mew-1.91 + IM-71 で使用しておりますが、以下のことで教えてください。

Mew をインストールしてあるマシンに、telnet でログインして Mew を立ち上
げると、Mew の起動に失敗し、バッファに、

	Wrong type argument: stringp, nil

と出てしまいます。

どこを、どう修正したらよいのでしょうか。

ちなみに、.emacs は、mew が関係するであろうところは以下のとうりです。
mew.dot.emacs をもとに若干修正したものです。

(setq load-path '(nil "/usr/lib/emacs/19.34/lisp"
		      "/usr/lib/emacs/site-lisp"
		      "/usr/local/lib/emacs/site-lisp/mew"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew-1.91
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
;(setq mew-mail-domain-list '("your mail domain"))
;(setq mew-icon-directory "icon directory")
(setq mew-from "Yasuyuki Nakamura <yasuyuki at example.com>")
;(setq mew-from "Yasuyuki Nakamura <yasuyuki at example.com>")
(setq mew-cc "yasuyuki at example.com")
;(setq mew-cc "yasuyuki at example.com")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Window tips
;;;

;; If you use XEmacs and your video chip provides only limited
;; color map(e.g. 256), put the following line to avoid exhaustion
;; of colors.
;(setq mew-demo-picture nil)

(cond
 ((eq window-system 'x)
  (cond
   ((string-match "^19" emacs-version)
    (setq hilit-mode-enable-list  nil
	  hilit-background-mode   'light
	  hilit-inhibit-hooks     nil
	  hilit-inhibit-rebinding nil)
    (require 'hilit19)
    ;;
    (add-hook 'mew-message-hook
	      'hilit-rehighlight-buffer-quietly)
    (hilit-set-mode-patterns 
     '(mew-message-mode)
     '(("^Subject:.*$" nil msg-subject)
       ("^From:.*$" nil msg-from)
       ("^X-.*:.*$" nil msg-quote)
       ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)))
    ;;
    (add-hook 'mew-draft-mode-hook
	      'hilit-rehighlight-buffer-quietly)
    (hilit-set-mode-patterns 
     '(mew-draft-mode)
     '(("^Subject:.*$" nil msg-subject)
       ("^From:.*$" nil msg-from)
       ("^>.*$" nil msg-quote)
       ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)))
    )
   )
  (cond
   ((string-match "XEmacs" emacs-version)
    (set-face-font
     'default
     '(
       ;; Europa
       "-*-fixed-medium-r-*--14-*-iso8859-1"
       "-*-fixed-medium-r-*--*-iso8859-1"
       "-*-fixed-medium-r-*--*-iso8859-2"
       "-*-fixed-medium-r-*--*-iso8859-3"
       "-*-fixed-medium-r-*--*-iso8859-4"
       "-*-fixed-medium-r-*--*-iso8859-7"
       "-*-fixed-medium-r-*--*-iso8859-8"
       "-*-fixed-medium-r-*--*-iso8859-5"
       "-*-fixed-medium-r-*--*-iso8859-9"
       ;; Japanese
       "-*-fixed-medium-r-*--14-*-jisx0201.1976-*"
       "-*-fixed-medium-r-*--14-*-jisx0208.1983-*"
       "-*-fixed-medium-r-*--14-*-jisx0212*-*"
       "-*-fixed-medium-r-*--*-jisx0201.1976-*"
       "-*-fixed-medium-r-*--*-jisx0208.1983-*"
       "-*-fixed-medium-r-*--*-jisx0212*-*"
       ;; Chinese fonts
       "-*-*-medium-r-*--*-gb2312.1980-*"
       "-*-fixed-medium-r-*--*-cns11643*-*"
       "-*-fixed-medium-r-*--*-big5*-*"
       "-*-fixed-medium-r-*--*-sisheng_cwnn-0"
       ;; Korean
       "-*-mincho-medium-r-*--*-ksc5601.1987-*"
       ;; Thai
       "-*-fixed-medium-r-*--*-tis620.2529-1"
       )
     'global '(mule-fonts))
;    (add-hook 'mew-message-hook
;	      (function 
;	       (lambda ()
;		 (if mew-xemacs-p
;		     (highlight-headers (point-min) (point-max) nil)))))
    (require 'highlight-headers)
    (set-face-foreground 'message-headers "blue")
    (set-face-foreground 'message-highlighted-header-contents "firebrick")
    (set-face-foreground 'message-header-contents "purple")
;    (set-face-foreground 'message-cited-text "purple")
    (setq highlight-headers-hack-x-face-p t);; X-Face
;    (setq highlight-headers-highlight-citation-too nil)
    )
   )
  )
 (t
  ;; Command line (emacs/mule/xemacs -nw)
  (setq mew-demo nil)
  )
 )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; @ browse-url
;; autoload
(autoload 'browse-url-interactive-arg "browse-url")
(autoload 'browse-url-browser-function "browse-url"
  "Ask a WWW browser to show a URL." t)
(autoload 'browse-url-at-point "browse-url"
  "Ask a WWW browser to load the URL at or before point." t)
(autoload 'browse-url-at-mouse "browse-url"
  "Ask a WWW browser to load a URL clicked with the mouse." t)
(autoload 'browse-url-of-buffer "browse-url"
  "Ask a WWW browser to display BUFFER." t)
(autoload 'browse-url-of-file "browse-url"
  "Ask a WWW browser to display FILE." t)
(autoload 'browse-url-of-dired-file "browse-url"
  "In Dired, ask a WWW browser to display the file named on this line." t)
;; key bind
;;  Mew Message mode
;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
(add-hook 'mew-message-mode-hook
      (function
       (lambda ()
       (local-set-key [mouse-2] 'browse-url-at-mouse)
         )))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; some UN|X
(setq browse-url-browser-function 'browse-url-netscape) ;; Netscape
; (setq browse-url-browser-function 'browse-url-w3) ;; Emacs W3

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Citation tip
;;;
;;;
;;; From: Kazu Yamamoto <Kazu at example.com>
;;; Subject: Hello World
;;; Date: Thu, 08 Dec 1994 11:44:08 +0900
;;; Message-Id: <199509291309.WAA21663 at example.com>
;;;
;;; kazu> The quick brown fox jumped over the very lazy dog.
;;;

;(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-fields '("From:" "Subject:" "Date:"))
;(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
;(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\n\n")
(setq mew-cite-format "From:    %s\nSubject: %s\nDate:    %s\n\n")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; ispell-message for Mew
;;;
;;;	You should apply ispell.el.patch to ispell.el.
;;;

(add-hook 'mew-send-hook 'ispell-message)

どうぞ、よろしくお願い致します。

------------------------------------------
名古屋大学  情報文化学部  自然情報学科
情報機構学講座  中村泰之 
TEL (052)789-4753  FAX (052)789-4804
yasuyuki at example.com