From owner-FreeBSD-users-jp@jp.freebsd.org  Thu Aug 10 20:11:07 2000
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id UAA34169;
	Thu, 10 Aug 2000 20:11:07 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from hitpro.hitachi.co.jp (root@hitpro.hitachi.co.jp [133.145.224.7])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id UAA34162
	for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 10 Aug 2000 20:11:07 +0900 (JST)
	(envelope-from karasu@hinet.co.jp)
Received: from hgw.hinet.co.jp by hitpro.hitachi.co.jp (8.9.3/3.7W-hitpro) id UAA29460; Thu, 10 Aug 2000 20:11:06 +0900 (JST)
Received: from eucharis.si4.hinet.co.jp ([192.168.12.232])
	by hgw.hinet.co.jp (8.9.1a+3.1W/3.7W/HINET-2) with ESMTP id UAA06540
	for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 10 Aug 2000 20:10:26 +0900 (JST)
Date: Thu, 10 Aug 2000 20:10:25 +0900
Message-ID: <6tpunhmkwu.wl@eucharis.si4.hinet.co.jp.hinet.co.jp>
From: =?ISO-2022-JP?B?GyRCMSg7MxsoQiAbJEJNOkJnGyhC?= <karasu@hinet.co.jp>
To: FreeBSD-users-jp@jp.freebsd.org
User-Agent: Wanderlust/1.1.1 (Purple Rain) SEMI/1.13.7 (Awazu) FLIM/1.13.2 (Kasanui) MULE/2.3 (SUETSUMUHANA) (based on Emacs 19.34)
MIME-Version: 1.0 (generated by SEMI 1.13.7 - "Awazu")
Content-Type: multipart/mixed;
 boundary="Multipart_Thu_Aug_10_20:10:25_2000-1"
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+000315
X-Sequence: FreeBSD-users-jp 54075
Subject: [FreeBSD-users-jp 54075] Wanderlust
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: karasu@hinet.co.jp

--Multipart_Thu_Aug_10_20:10:25_2000-1
Content-Type: text/plain; charset=ISO-2022-JP


$B1(;3!w(BHINET$B$G$9(B

$BKhEY!"<ALd$P$+$j$G$9$_$^$;$s(B

$B8=:_(B
Wanderlust/1.1.1 (Purple Rain)
SEMI/1.13.7 (Awazu)
FLIM/1.13.2 (Kasanui)
MULE/2.3 (SUETSUMUHANA) (based on Emacs 19.34)
apel-mule-10.2

<< $B%*%^%1(B >>
bitmap-mule-8.3.tgz
bitmap-fonts-1.0.p1.tgz

$B$J4D6-$G%a!<%k$r=q$$$F$^$9!#(B

FreeBSD$B>e$GF0$+$7$?%W%m%0%i%`$NEG$$$?(B
$BF|K\8l$NF~$C$?(Blog$B$r(B

C-x C-i $B$G<h$j9~$s$G%a!<%k$rAw$k$H(B
$B;d<+?H$O8+$i$l$k$N$G$9$,(B

Windows$B$G(BOutlook$B$d(BNetscape$B$r;H$C$F$$$k?M$+$i$O(B
$BJ8;z$,2=$1$k$H8@$o$l$^$9!#(B

$BD4$Y$?=j(B
Transfer Encoding  quoted-printable$B$K$J$C$F$^$7$?(B
($B$3$l$G$b8+$l$J$$$H$*$+$7$$$N$G$9$,(B)

$B$=$3$G(Blog$B$r(B
C-c C-x C-i$B$G<h$j9~$`$H(B
$BF|K\8l$,F~$C$F$$$k$K$b$+$+$o$i$:(B

 text/plain; US-ASCII (7bit)

 $B$K$J$C$F$7$^$$$^$9!#(B

 $B$3$3$i$X$s$O2?$+!"@_Dj$r$7$J$$$H(B
 $B$$$1$J$$$N$G$7$g$&$+!)(B

 .wl$B$rE:IU$7$^$9!#(B
 ($B8+$i$l$A$c$^$:$$ItJ,$O>C$7$F$^$9(B)

 $B$h$m$7$/$*4j$$$7$^$9(B



--Multipart_Thu_Aug_10_20:10:25_2000-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename=".wl"
Content-Transfer-Encoding: 7bit

(setq wl-from " ͺ <karasu@hinet.co.jp>")
(setq wl-thread-insert-opened t)
(setq elmo-enable-sidconnected-operation t)

(setq wl-default-spec "+")          ;; Ւ뒥̾䒴˒Ȓђ뒥ǒՒ뒥ȒΒڒÒ
(setq wl-interactive-send t)         ;; ᒡ˒ϒΒǧ

;;֒⒡(a)Reply-Toȿ
(setq wl-draft-reply-without-argument-list
              (append '(("Reply-To" . (("Reply-To") nil nil)))
               wl-draft-reply-without-argument-list))

;;Message-ID㒤ȒՒ!!
(setq wl-message-id-domain (concat (system-name) ".hinet.co.jp"))

;;x-faceȒ!!!! bitmap-mule,compface
(setq wl-highlight-x-face-func
         'x-face-mule-x-face-decode-message-header)
(when (and window-system
           (module-installed-p 'x-face))
  (cond (wl-on-xemacs                           ;; for XEmacs
         (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
         (setq wl-highlight-x-face-func
               'x-face-xmas-wl-display-x-face))
        ((module-installed-p 'x-face-mule)      ;; for Mule (GNU Emacs)
         ;; x-face-mule 0.20ʒ
         (setq wl-highlight-x-face-func
               (function
                (lambda (beg end)
                  (x-face-mule-x-face-decode-message-header beg end))))
         (setq x-face-mule-highlight-x-face-style 'xmas)
         (require 'x-face-mule)
         )))

;; ư꒥Ւ뒤ʒʒ³ޒߒ
;; ɸǒ "N" "U" "!" ˒ʒÒƒ꒡̤ɒᒥÒ򒼫ư꒥Ւ뒤
;; ޒ󒡣nil ǒْƒΒᒥÒВݒ˒ʒ꒤ޒ
(setq wl-summary-auto-refile-skip-marks nil)

(setq wl-interactive-exit t)	     ;; λ˒Βǧ
(setq wl-interactive-send t)	     ;; ᒡ˒ϒΒǧ

(setq wl-auto-select-first t)	     ;; ޒ꒰ܒư咤˒ƬᒥÒɽ
(setq wl-auto-select-next t)	     ;; ޒ⒤Βܒưǒ̤ɒᒥÒʒ
				     ;; ΒՒ뒥˒ܒư
;(setq wl-auto-select-next 'skip-no-unread)
				     ;; ̤ɒʒՒ뒥ϒВ
				     ;; SPCǒɒߒʒᒤ뒾쒹璤ϒؒ
(setq wl-summary-move-order 'unread) ;; ̤ɒᒥÒͥŪ˒ɒ
(setq wl-thread-insert-opened t)     ;; threadϒopen˒

;(setq wl-stay-folder-window t)	     ;; ޒ꒤˒ܒưȒ˒Ւ뒥ВÒՒ
				     ;; Β˒ޒ꒤ΒВÒՒɽ

;; unplugged ֒ǒ뒤Ȓ咡(`wl-queue-folder')˒ʒǼ
(setq wl-draft-enable-queuing t)
;; unplugged  plugged ˒ђ뒤Ȓ咡˒뒥ᒥÒ
(setq wl-auto-flush-queue t)

;; highlightΒߒ (뒤ؒʒΒ쒹璤ǒ)

;; 뒡ג̤ɒ˒蒤꒿ʬʒĒ֒˒蒤꒿ʬ뒡
;(setq wl-highlight-group-folder-by-numbers nil)

(setq wl-highlight-message-header-alist
      '(("Subject[ \t]*:" . wl-highlight-message-subject-header-contents)
	("From[ \t]*:" . wl-highlight-message-from-header-contents)
	("\\(.*To\\|Cc\\|Newsgroups\\)[ \t]*:" . wl-highlight-message-important-header-contents)
	("\\(User-Agent\\|X-Mailer\\|X-Newsreader\\)[ \t]*:" .
	 wl-highlight-message-unimportant-header-contents)
	))
;; ђ쒥ْ뒤ǒʬʒ
;(setq wl-highlight-citation-face-list
;      '(wl-highlight-message-cited-text-1))

(defun my-wl-set-face (face spec)
  (make-face face)
  (cond ((fboundp 'face-spec-set)
	 (face-spec-set face spec))
	(t
	 (wl-declare-face face spec))))

;; ᒥÒؒÒ
(my-wl-set-face 'wl-highlight-message-subject-header-contents
		'((t (:foreground "blue" :bold t))))
(my-wl-set-face 'wl-highlight-message-from-header-contents
		'((t (:foreground "red" :bold t))))
(my-wl-set-face 'wl-highlight-message-important-header-contents
		'((t (:foreground "purple" :bold t))))
(my-wl-set-face 'wl-highlight-message-unimportant-header-contents
		'((t (:foreground "RoyalBlue" :bold t))))
(my-wl-set-face 'wl-highlight-message-headers
		'((t (:foreground "magenta3" :bold t))))
(my-wl-set-face 'wl-highlight-message-header-contents
		'((t (:foreground "brown" :bold nil))))
(my-wl-set-face 'wl-highlight-message-signature
		'((t (:foreground "blue"))))
;; 
(my-wl-set-face 'wl-highlight-message-citation-header
		'((t (:foreground "DarkGreen"))))
(my-wl-set-face 'wl-highlight-message-cited-text-1
		'((t (:foreground "forest green"))))
(my-wl-set-face 'wl-highlight-message-cited-text-2
		'((t (:foreground "SaddleBrown"))))
(my-wl-set-face 'wl-highlight-message-cited-text-3
		'((t (:foreground "orchid3"))))
(my-wl-set-face 'wl-highlight-message-cited-text-4
		'((t (:foreground "purple1"))))
(my-wl-set-face 'wl-highlight-message-cited-text-5
		'((t (:foreground "MediumPurple1"))))
(my-wl-set-face 'wl-highlight-message-cited-text-6
		'((t (:foreground "PaleVioletRed"))))
(my-wl-set-face 'wl-highlight-message-cited-text-7
		'((t (:foreground "LightPink"))))
(my-wl-set-face 'wl-highlight-message-cited-text-8
		'((t (:foreground "salmon"))))
(my-wl-set-face 'wl-highlight-message-cited-text-9
		'((t (:foreground "SandyBrown"))))
(my-wl-set-face 'wl-highlight-message-cited-text-10
		'((t (:foreground "wheat"))))
;; ޒ
(my-wl-set-face 'wl-highlight-summary-important-face
		'((t (:foreground "purple"))))
(my-wl-set-face 'wl-highlight-summary-new-face
		'((t (:foreground "tomato"))))
(my-wl-set-face 'wl-highlight-summary-unread-face
		'((t (:foreground "RoyalBlue"))))
(my-wl-set-face 'wl-highlight-summary-deleted-face
		'((t (:foreground "gray"))))
(my-wl-set-face 'wl-highlight-summary-refiled-face
		'((t (:foreground "blue"))))
(my-wl-set-face 'wl-highlight-summary-temp-face
		'((t (:foreground "salmon"))))
(my-wl-set-face 'wl-highlight-summary-displaying-face
		'((t (:bold t :underline t))))
;; (쒥Ò)
(my-wl-set-face 'wl-highlight-summary-thread-top-face
		'((t (:foreground "green4"))))
(my-wl-set-face 'wl-highlight-summary-normal-face
		'((t (:foreground "SeaGreen"))))
;; Ւ뒥
(my-wl-set-face 'wl-highlight-folder-unknown-face
		'((t (:foreground "RoyalBlue"))))
(my-wl-set-face 'wl-highlight-folder-killed-face
		'((t (:foreground "gray50"))))
(my-wl-set-face 'wl-highlight-folder-unread-face
		'((t (:foreground "brown"))))
(my-wl-set-face 'wl-highlight-folder-zero-face
		'((t (:foreground "blue4"))))
(my-wl-set-face 'wl-highlight-folder-few-face
		'((t (:foreground "tomato"))))
(my-wl-set-face 'wl-highlight-folder-many-face
		'((t (:foreground "HotPink1"))))
;; 뒡
(my-wl-set-face 'wl-highlight-folder-opened-face
		'((t (:foreground "forest green"))))
(my-wl-set-face 'wl-highlight-folder-closed-face
		'((t (:foreground "DarkOliveGreen4"))))
;; ȒÒגǒ
(my-wl-set-face 'wl-highlight-demo-face
		'((t (:foreground "blue2"))))


;; ʬΒᒡ뒥ɒ쒥Β꒥
(setq wl-user-mail-address-list
      (list (wl-address-header-extract-address wl-from)
	    ;;"e-mail2@bbb.com" ...
	    ))


;;; ML ΒᒥÒǒ쒤Вޒ꒤ Subject ɽ
;;; ML̾  ML˒뒥ᒥÒ֒撤ɽ
(setq wl-summary-subject-func 'my-wl-summary-subject-func-ml)
(defun my-wl-summary-subject-func-ml (subject-string)
  (let ((folder wl-summary-buffer-folder-name)
	(subj subject-string) (sequence) (ml-name) (ml-count))
    (setq sequence (elmo-msgdb-overview-entity-get-extra-field
		    entity "x-sequence")
	  ml-name (or (elmo-msgdb-overview-entity-get-extra-field
		       entity "x-ml-name")
		      (and sequence
			   (car (split-string sequence " "))))
	  ml-count (or (elmo-msgdb-overview-entity-get-extra-field
			entity "x-mail-count")
		       (elmo-msgdb-overview-entity-get-extra-field
			entity "x-ml-count")
		       (and sequence
			    (cadr (split-string sequence " ")))))
    (if (string-match
	 "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
	 subject-string)
	(progn
	  (setq subj (substring subject-string (match-end 0)))
	  (if (not ml-name) (setq ml-name (match-string 1 subject-string)))
	  (if (not ml-count) (setq ml-count (match-string 2 subject-string)))))
    (if (and ml-name ml-count)
	(if (string= folder wl-default-folder)
	    (format "(%s %05d) %s"
		    (car (split-string ml-name " "))
		    (string-to-int ml-count)
		    subj)
	  (format "#%05d %s"
		  (string-to-int ml-count) subj))
      subj)))

;; ɒ钥ՒȒВÒՒΒƒ˒蒤 From  Organization ʒɒΒؒÒ򒼫
;; ưŪ˒ђ
(setq wl-draft-config-alist
      '((reply			;; ֒ΒВÒՒ򒸫
	 "^To: .*\\(test-notsend-wl@lists.airs.net\\)"
	 (template . "default"))		;; ƒג쒡
	("^To: .*\\(test-notsend-wl@lists.airs.net\\)"
	 wl-ml-draft-config-func		;; ؒ
	 ("From" . wl-from)			;; ђ
	 ("Organization" . "~/.wl sample"))	;; ʸ
	("^Newsgroups: test.*"
	 ("Organization" . "˒咡꒹ƒΒȒ̾"))
	))

;; źՒՒ뒤ܒ쒤ǒmimeΒ§钤Òƒ̵쒹璸
(eval-after-load "mime"
   `(defadvice mime-entity-filename (around mime-decode activate)
      ad-do-it
      (and ad-return-value
           (setq ad-return-value
                 (eword-decode-string (decode-mime-charset-string
                                       ad-return-value
                                       `iso-2020-jp))))))
;;;
;;; end of file
;;;

--Multipart_Thu_Aug_10_20:10:25_2000-1
Content-Type: text/plain; charset=ISO-2022-JP


----------------------------
($B3t(B)$BF|N)>pJs%M%C%H%o!<%/(B
SI42G $B1(;3M:Bg(B
e-mail:karasu@hinet.co.jp
<$BKL6e=#J[9V:B(B> http://www.unionsquare.co.jp/kusuko.htm

--Multipart_Thu_Aug_10_20:10:25_2000-1--
