% mkdir ~/.certs % openssl x509 -hash -noout -in cert.pem a6911e1f % cp cert.pem ~/.certs/a6911e1f.0a6911e1fはopensslを実行したときのハッシュ値です。これプラス'.0'のファイル名にします。a6911e1fの値はcert.pemによって異なります。
% bsfilter --pop --pop-proxy-if 127.0.0.1 ? --pop-proxy-set POPSERVER:110:127.0.0.1:10110 ? --auto-update --insert-flag --insert-probability
(setq mew-pop-proxy-server "localhost") (setq mew-pop-proxy-port "10110") (defun mew-bsfilter (val) (let ((case-fold-search t)) (if (string-match "yes" val) "+spam"))) (setq mew-scan-fields (delete mew-spam: mew-scan-fields)) (setq mew-scan-fields (delete "Body" mew-scan-fields)) (setq mew-spam: "X-Spam-Flag:") (setq mew-scan-fields (append mew-scan-fields (list mew-spam: "Body"))) (setq mew-inbox-action-alist '(("X-Spam-Flag:" mew-bsfilter)))
(setq mew-pop-proxy-server "localhost") (setq mew-pop-proxy-port "10110") (defun mew-bsfilter (val) (let ((case-fold-search t)) (if (string-match "yes" val) "+spam"))) (setq mew-spam: "X-Spam-Flag:") (setq mew-inbox-action-alist '(("X-Spam-Flag:" mew-bsfilter)))
(setq mew-use-header-veil nil) (setq mew-header-veil-count 10)
(setq mew-use-node-folder nil) (setq mew-use-fast-refile t)
(defun mew-summary-form-num () (MEW-NUM)) (setq mew-summary-form `((-5 num) type (5 date) " " (14 from) " " t (30 subj) ,mew-summary-form-body-starter (0 body)))
(setq mew-summary-form-body-starter "|") (setq mew-summary-form-list `(("[+]??(draft??|queue??|postq??)" (type (5 date) " " (14 from) " " t (26 subj) ,mew-summary-form-body-starter (0 body))) (t (type (5 date) " " (14 from) " " t (26 my-subj) ,mew-summary-form-body-starter (0 body))))) (defun mew-summary-form-my-subj () "A function to return simplified Subject:." (let ((subj (mew-summary-form-subj))) ;; remove ML label (while (string-match "^??(Re: *??)*??([[(][a-zA-Z0-9._-]+[ :,][0-9]+[])] *??)" subj) (setq subj (concat (substring subj 0 (match-beginning 2)) (substring subj (match-end 2))))) ;; remove Re: Re: ... (while (string-match "^??(Re: *??)??(Re: *??)+" subj) (setq subj (concat (substring subj 0 (match-beginning 2)) (substring subj (match-end 2))))) ;; remove (was...) (while (string-match (concat "^.*??(" mew-was-regex "??)") subj) (setq subj (substring subj 0 (match-beginning 1)))) subj))
[mew-dist 23538]
(imputを利用)
(setq mew-touch-folder-p t) (setq file-writable-p t)
(mew-insert-after mew-field-spec '("^Thread-" nil) "^Status:$") (mew-insert-after mew-field-spec '("^Importance" nil) "^Status:$")
(defun my-browse-url-at-mouse (event) (interactive "e") (let ((buf (current-buffer))) (browse-url-at-mouse event) (pop-to-buffer buf))) (define-key mew-message-mode-map [mouse-2] 'my-browse-url-at-mouse)
一部の emacs のバージョンや meadow では上記の設定が動かないかもしれません。その場合は以下の設定を試してみてください。
(or (featurep 'browse-url) (require 'browse-url)) (defun browse-url-at-mouse-fake (event) (interactive "e") (save-excursion (set-buffer (window-buffer (posn-window (event-start event)))) (goto-char (posn-point (event-start event))) (browse-url-at-point))) (defalias 'browse-url-at-mouse 'browse-url-at-mouse-fake)
※この機能は mew-4.2.51 で mew の側で取り入れられたので ~/.mew に個別に書く必要はなくなりました。
mew-regex-url は mew4 の mew-vars.el で定義された変数です。 まず describe-variable 等で、現在の値を確認してください。 例えば以下の内容です。 (本当は、途中で改行されていません)
"\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\): \\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,:;]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]"この正規表現にマッチする文字列が URL としてハイライトされます。 ~/.mew.el で希望する内容を setq してください。 例えば Notes:///XXXXXXXXX/XXXXXXXXX をURLとしてハイライトさせる場合は以下の様に「\\|notes」を現在値に追加すればいいです。 (2行目と 3行目は、本当は 1行です。 空白も入れずに続けます)
(setq mew-regex-url "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|notes\\): \\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,:;]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]")
thing-at-point-url-regexp は 各Emacs の thingatpt.el で定義された変数です。 describe-variable 等で現在の値を確認してください。 例えば以下の内容です。 (本当は、途中で改行されていません)
"\\<\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto://\\) [^] \n \"'()<>[^`{}]*[^] \n \"'()<>[^`{}.,;]+"mew 以外からも使用される場合に備えて ~/.emacs で setq する方が良いでしょう。 同じく Notes:///XXXXXXXXX/XXXXXXXXX を処理させる例です。(2行目と 3行目の間の改行・空白は削除)
(setq thing-at-point-url-regexp "\\<\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\|notes:///\\) [^] \n \"'()<>[^`{}]*[^] \n \"'()<>[^`{}.,;]+")この例の様に protocol 部分だけの変更なら、以下の方が良いかも知れません。
(eval-after-load "thingatpt" `(progn (setq thing-at-point-url-regexp (concat "\\<\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\|notes:///\\)" thing-at-point-url-path-regexp))))
configure, make 時に次のような引数を与えます。
env CFLAGS="-arch i386 -arch ppc -isysroot /Developer/SDKs/MacOSX10.4u.sdk" ./configure make LDFLAGS="-arch i386 -arch ppc -isysroot /Developer/SDKs/MacOSX10.4u.sdk" make info jinfo install install-jinfo
(mew-replace-with mew-mark-afterstep-spec (list mew-mark-review 2 0 0 0 0 0 0) mew-mark-review)