[mew-dist 29355] Re: 宛先を匿名にしたメッセージ の送信

 
> 
> CVS:
> 

CVS

make jinfo LANG=ja_JP.UTF8 

.session  LANG=ja_JP.utf8  utf8 
 ja_JP.UTF8 


xorg-86 afterstep emacs-23-2  mew 


xorg-drivers-1.9 
xorg-server-1.9.4
xorg-x11-7.4
afterstep-2.2.9
emacs-23.2
atokx3
mew-6.3.50  git 

.emacs  .mew 

(1) 
(2) 
(3) emacs mew 



 .mew 
 5 KByte mew-config-alist(50 )
mew-refile-guess-alist 65 KByte  
----------------------------  ---------------------------
    (setq mew-pop-size (* 54 1024000))
    (setq mew-file-max-size 10000000)
    (setq mew-prog-grep-opts '("-j" "jis" "-l" "-e" "-x" "&mime"))

    (setq mew-summary-form-from-me-prefix nil) ;;
    (setq mew-use-overlay-keymap nil)
       (setq mew-config-alist
        
    )
    (setq mew-charset-m17n "iso-2022-jp-2")
    (setq mew-ask-charset '("us-ascii" "iso-2022-jp"))

    ;;x;;(setq mew-use-folders-file-p t)
    (setq mew-summary-form-mark-review nil)
    (setq mew-summary-form-mark-delete nil)  ;; t
    (setq mew-summary-form-mark-review nil)
    (setq mew-summary-form-size-0k t)  ;; nil
    (setq mew-summary-form-list-string-type 'regex)
    (setq mew-summary-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 "")))

	  (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-overlay-keymap nil)
    (setq mew-use-cached-passwd t)
    (setq mew-passwd-timer-unit 1000)
    (setq mew-passwd-reset-timer nil)

    (setq mew-use-cursor-mark t)

    (setq mew-header-max-length 1000)
    (setq mew-prog-pgp "gpg")
    (setq mew-refile-guess-alist
	   '(("To:"
              
	      )
	      ("Cc:"
              
	      )
	     ("From:"
	      
             )
	    )
    )
    (add-hook 'mew-draft-mode-hook
	      '(lambda ()
		 (auto-fill-mode 1)
		 (setq fill-column 66
		       tab-width 4)))

    (setq mew-use-fancy-highlight-body t)

     (add-hook 'mew-send-hook
	      (function
	       (lambda ()
		 (goto-char (point-min))
		 (mew-encode-canonicalize-address
		  (mew-draft-resent-p (mew-header-end)))
		 (end-of-line))))

    (condition-case nil (require 'mew-w3m) (file-error nil))
    (setq mew-mime-multipart-alternative-list
	    '("Text/Html" "Text/Plain" ".*"))

    (setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"))
    (setq mew-replyto-cc-list nil)

	 (setq mew-reply-sender-alist
	       '(("Reply-To:"
		  ("To:" "Reply-To:" "Mail-Followup-To:" "Delivered-To:"))
		 (t
		  ("To:" "From:"))))
    ;;	      ("To:" "Reply-To:" "Mail-Followup-To:" "Delivered-To:"))
    (setq mew-reply-all-alist
	  '((("Followup-To:" "poster")
	     ("To:" "From:"))
	    ("Followup-To:"
	     ("Newsgroups:" "Followup-To:"))
	    ("Newsgroups:"
	     ("Newsgroups:" "Newsgroups:"))
	    ("Reply-To:"
	     ("To:" "Reply-To:" "To:" "Apparently-To:")
	     ("Cc:" "Cc:"))
	    (t
	     ("To:" "From:" "To:" "Apparently-To:")
	     ("Cc:" "Cc:"))))
    (setq mew-reply-sender-alist
	  '((t
	     ("To:" "From:"))))
    (setq mew-reply-fromme-alist
	  '((t
	     ("To:" "To:" "Apparently-To:")
	     ("Cc:" "Cc:"))))

     (setq mew-spam: "Received-SPF:")
    (defun mew-spf-check (val)
      (let ((case-fold-serach t))
	(if (string-match "fail" val) ?D)))
    (defun mew-spam-assassin (val)
      (let ((case-fold-search t))
	(if (string-match "yes" val) ?D)))
       
    (setq mew-inbox-action-alist
    ;;      '(("X-Spam-Flag:"  mew-spam-assassin))
	   '(("Authentication-Results:"  mew-spf-check))
    ;;       '(("Received-SPF:"  mew-spf-check))
    )

    (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)
    (setq mew-my-domains '("src.co.jp" "hayama.jp"))

    ;;; mouse URL  Netscape 
    (setq browse-url-browser-function 'browse-url-netscape)
    (setq browse-url-netscape-program "firefox")
    (add-hook 'mew-message-mode-hook
	      (function 
	       (lambda ()
		 (local-set-key [mouse-2] 'browse-url-at-mouse))))

     (defun mew-draft-toggle-privacy-method ()
      "Toggle privacy method s/mime or pgp/mime."
      (interactive )
       (if (equal mew-draft-privacy-method 'smime) 
	(setq mew-protect-privacy-always-type 'pgp-signature
	      mew-draft-privacy-method 'pgp )
	(setq mew-protect-privacy-always-type 'smime-signature
	      mew-draft-privacy-method 'smime)
      )  
      (message "Set protect-privacy --> %s"  mew-draft-privacy-method)
    )
    (define-key mew-draft-body-map  "\C-c\C-p\C-t"  'mew-draft-toggle-privacy-method)
	 (setq mew-cite-fields nil)
	 (setq mew-cite-format nil)
	 (setq mew-cite-prefix "> ")

    (setq mew-pgp-keyserver-url-template "subkeys.pgp.net pool.sks-keyservers.net")
    (setq mew-pgp-pks-servers
      '(("openpksd.org" t)
	("subkeys.pgp.net" t)
	(" pool.sks-keyservers.net" t)
	))
    (add-hook 'mew-message-mode-hook
	      (lambda ()
		(setq cursor-in-non-selected-windows nil)))

    (setq mew-visit-inbox-after-setting-case t)
(setq mew-auto-get nil)

  (defvar mew-prog-pdf 'acroread)
    (progn
	  (setq mew-prog-pdf '("acroread" ("--geometry" "+0+0") t))
    )
----------------------------  ---------------------------

--