[mew-dist 19682] Re: 空騒ぎかも知れませんが

[早間義博]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 19681] Re: 空騒ぎかも知れませんが
Date: Tue, 20 Nov 2001 09:43:44 +0900 (JST)
Message-ID: <20011120.094344.74192883.kazu at example.com>

> From: 早間義博 <yossi at example.com>
> Subject: [mew-dist 19674] Re: 空騒ぎかも知れませんが
> 
> > メールの最後の「 . 」がありません。
> 
> うーん。
> 
> coding-system を勝手に変えてしまうような elisp のパッケージをインストー
> ルしていませんか？
> 
> Mew だけが読み込まれる環境を作っても再現するのでしょうか？ 日本語入力
> のパッケージも信用しないで下さい。なにを require しているのか分りませ
> んから。
> 
> --かず

AtokX を使用可能にした Mule を使用しています。
テスト用に .emacs を作成し実行しました。また使用中の .mew も添付します。
やはり、同じです。
http://phe.phyas.aichi-edu.ac.jp/~cyamauch/pl2.html#atokx_emacs
の Mule と
http://phe.phyas.aichi-edu.ac.jp/~cyamauch/pl2.html#atokx
の様にAtokX を入れています。
Mule は UCS のパッチが当たっています。（詳しい作成方法は
#atokx_emacs にあります、以前掲示されている方法で作成して使用して
いましたが、バージョンアップの時にこのページのものに変更しました）

この中で使用している iiimp.el には coding-system と言う語がありま
す。
$ grep coding-system *.el               
iiimp.el:(defalias 'iiimp-coding-system-or-name-p
iiimp.el:  (cond ((coding-system-p 'no-conversion)
iiimp.el:        (function coding-system-p))
iiimp.el:       ((find-coding-system 'no-conversion)
iiimp.el:        (function find-coding-system))
iiimp.el:         "This system have no function to detect coding-system(or its name)."))))
iiimp.el:(defvar iiimp-string-conversion-or-coding-system
iiimp.el:  (if (iiimp-coding-system-or-name-p 'utf-16-be-no-signature-unix)
iiimp.el:  (let ((coding-system-for-read nil)
iiimp.el:       (coding-system-for-write nil)
iiimp.el:      (set-process-coding-system proc 'binary 'binary)
iiimp.el:                str iiimp-string-conversion-or-coding-system))
iiimp.el:    (if (and (not (eq iiimp-string-conversion-or-coding-system
iiimp.el:          iiimp-string-conversion-or-coding-system)
-------------- next part --------------
(setup-japanese-environment)
(set-terminal-coding-system 'iso-2022-jp)
(autoload 'mew "mew" nil t)
(autoload 'mew-read "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq load-path (cons "/usr/local/share/emacs/site-lisp" load-path))
(put 'eval-expression 'disabled nil)
-------------- next part --------------
(setq mew-pop-size (* 54 1024000))
(setq mew-file-max-size 10000000)
(setq mew-use-overlay-keymap nil)
   (setq mew-config-alist
      '(
	("xxx"

	略

	)
	("default"
		("user" . "xxx")
		("name" . "私の名前")
		("inbox-folder" . "+inbox")
		("smtp-msgid-domain" . "MYDOMAIN")
		("mail-domain" . "MYDOMAIN")
		("dcc" . "xxx at example.com")
		("msgid-domain" . "MYDOMAIN")
		("header-alist" . (("X-URL:" . "http://www.MYDOMAIN")) )
		("signature-file" . ".sign_xxx")
		("smtp-server" . "localhost")
		("smtp-port" . "25")
		("pop-server" . "localhost")
		("pop-user" . "xxx")
		("pop-port" . "110")
		("pop-auth" . pass)
		("pop-delete" . t)
	)

     )
)

(setq mew-charset-m17n "iso-2022-jp-2")
(setq mew-use-folders-file-p t)
(setq mew-scan-form-mark-review nil)
(setq mew-scan-form-mark-delete nil)  ;; t
(setq mew-scan-form-mark-review nil)
(setq mew-scan-form-size-0k t)  ;; nil
(setq mew-scan-form-list-string-type 'regex)
(setq mew-scan-form-list-list-type 'regex)  ;; 'recursive
(defun demangle-subject ()
(let ((count 0))
    (save-excursion
      (beginning-of-buffer)
      (re-search-forward "^Subject: " (point-max) t)
      ; eliminate "[mailing-list:count] "
      (save-excursion
	(while (re-search-forward "\\[[-a-zA-Z0-9.]+[ :][0-9]+\\] *"
				  (save-excursion (end-of-line) (point)) t)
	  (replace-match "")))
      ; eliminate "Re"
      (while (looking-at "R[Ee]\\(\\^[0-9]+\\|\\[[0-9]+\\]\\)*: *")
	(replace-match "")
	(setq count (+ count 1)))
      (and (> count 0) (insert mew-reply-string)))))

(add-hook 'mew-draft-mode-hook 'demangle-subject)
(setq mew-use-biff t)
(setq mew-use-biff-bell t)
(setq mew-pop-biff-interval 10)

(setq mew-use-overlay-keymap nil)
(setq mew-use-cached-passwd t)
(setq mew-passwd-timer-unit xxx)
(setq mew-passwd-reset-timer nil)
(setq mew-mail-domain-list
      '("MYDOMAIN"))
(setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"))
(setq mew-replyto-cc-list nil)
(cond
 ((and window-system (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)
	 ("^>.*$" 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)))
      )
 )
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
(defvar mew-cite-prefix-function nil)
(setq mew-header-max-length 1000)
(setq mew-prog-pgp "gpg")
(setq mew-refile-guess-alist
       '(("To:"

	略

	  )
	 ("From:"

	略

	  )
	 )
)
(setq mew-use-overlay-keymap nil)
(add-hook 'mew-draft-mode-hook
	  '(lambda ()
	     (auto-fill-mode 1)
	     (setq fill-column 66
		   tab-width 4)))

(setq mew-smime-digital-id  "/home/xxx/.smime/secret.pem")
(setq mew-smime-CA-file  "/home/xxx/.smime/CA2.pem")
(setq mew-smime-pubkey-dir  "/home/xxx/.smime/public.pem")
(setq mew-use-fancy-highlight-body t)