*Article*

* 電車内読書

鏡の中は日曜日 / 殊能将之 (http://www.amazon.co.jp/exec/obidos/ASIN/4061822225/arispage-22/ref=nosim)

* supersedes

* X-Gnus-Agent-Meta-Information

Gnus

J j

Wanderlust

M-t

navi2ch

t

* bbdb-gnus

  (add-hook
   'gnus-startup-hook
   #'(lambda ()
       (bbdb-insinuate-gnus)
       (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-pop-up-bbdb-buffer)))

* Content-Type

 Content-Type: text/plain; charset=euc-jisx0213
 Content-Transfer-Encoding: base64

* mailcap.el

mm-display-part: Symbol's function definition is void: mailcap-parse-mailcaps

* compile

While compiling toplevel forms in file /home/ari/src/elpoint-0.1.0/ept-mode.el:
  !! error (("Non-X frame used"))

* ept-kochi-x

% xlsfonts -fn '-kochi-gothic-medium-r-normal-*-100-*-*-*-*-*-iso8859-1'
-kochi-gothic-medium-r-normal--100-1000-72-72-m-0-iso8859-1

* sample-ja.ept

* ept-sun-x.el

(require 'ept-sun-x)
(setq ept-use-kochi nil)
(require 'ept-setup)

Jan 10 16:05:52 puyo postfix/smtp[18471]: 6B86A11D93: to=<ari@mbf.sphere.ne.jp>, relay=none, delay=92147, status=deferred (connect to mail.sphere.ad.jp[210.150.255.2]: Connection timed out)

(setq message-send-mail-function 'message-send-mail-with-smtp
      smtp-server "mailhost")

* postfix

ascii			-sony-fixed-medium-r-normal--16-120-100-100-c-80-iso8859-1
     [-Sony-Fixed-Medium-R-Normal--16-120-100-100-C-80-ISO8859-1]
japanese-jisx0208	-*-*-*-jisx0208.1990-*
     [-Misc-Fixed-Medium-R-Normal--16-150-75-75-C-160-JISX0208.1990-0]

• 捻れ屋敷の利鈍
• Che-es! SPYZ
• Whity
• まほろまてぃっく Vol.2

* 呑み

さっそく Che-es! SPYZ で遊んでみる。Zippo くらいと、かなり小さいですなあ。
koishi
私
サラダ
スパゲッチョ

* 電車内読書

今昔続百鬼 - 雲 (http://www.amazon.co.jp/exec/obidos/ASIN/4061822217/arispage-22/ref=nosim)

$HNS::Hnf::Command::LIMG::Template{photos} = sub {
    my $params = shift;
    my $templ = new HNS::Template;
    my $photo = $templ->Expand(qq(photos/%year%month%day/s%param), $params);
    my ($width, $height) = imgsize($photo, $HNS::System::ImgWidthMaxSize);

    $templ->Expand(qq(<a href="photos/%year%month%day/%param"><img src="$photo" alt="%param" width="$width" height="$height"></a>), $params);
};

 LIMG photos:img001.png

pencam_set_configuration error
Last error: 255,  command = 0xff
Camera ping failed!! Check connections abd try again!
Error initializing camera!!

* pencam-0.50

ということで、pencam-0.50 にしてみるが、また動かない(;_;)
0.42 と diff ってみて、 適当に変更。無事取り込めた。
0.42 よりは良いけど。
Che-ez! Manager で取り込んだものの方が良いな。

* usbmgr

vendor 0x553 product 0x202 module none script stv0680

* gnus-current-headers

* default-mime-charset

* gnus-article-display-traditional-message

* for browse-url-at-mouse

(setq thing-at-point-url-regexp
  (concat
   "\\<\\(h?ttps?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)"
   thing-at-point-url-path-regexp))
(defadvice thing-at-point-url-at-point (after support-omitted-h activate)
  (when (and ad-return-value (string-match "\\`ttps?://" ad-return-value))
    (setq ad-return-value (concat "h" ad-return-value))))

* for emacs-w3m

(setq ffap-url-regexp
      (concat
       "\\`\\("
       "news\\(post\\)?:\\|mailto:\\|file:"
       "\\|"
       "\\(ftp\\|h?ttps?\\|telnet\\|gopher\\|www\\|wais\\)://"
       "\\)."))
(defadvice ffap-url-at-point (after support-omitted-h activate)
  (when (and ad-return-value (string-match "\\`ttps?://" ad-return-value))
    (setq ad-return-value (concat "h" ad-return-value))))

* for SEMI

(setq mime-browse-url-regexp
      (concat "\\(h?ttps?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):"
	      "\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?"
	      "[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]"))
(defadvice browse-url (before support-omitted-h (url &rest args) activate)
  (when (and url (string-match "\\`ttps?://" url))
    (setq url (concat "h" url))))

• YAIKO / U.K COMPLETION BEST
• 夢使い (2)

* monafy-buffer

(require 'navi2ch-mona)

(set-face-font (make-face 'mona-face)
	       navi2ch-mona-font)

(defun monafy-buffer (&optional buffer)
  (overlay-put (make-overlay (point-min) (point-max) buffer)
	       'face 'mona-face))

(defun unmonafy-buffer (&optional buffer)
  (with-current-buffer (or buffer (current-buffer))
    (mapc
     #'(lambda (overlay)
	 (when (face-equal (overlay-get overlay 'face) 'mona-face)
	   (delete-overlay overlay)))
     (overlays-in (point-min) (point-max)))))

(add-hook 'w3m-display-hook
	  #'(lambda (url)
	      (when (string-match "\\`http://\\([^/?#]*2ch.net\\)" url)
		(monafy-buffer))))

   In Emacs 20, if an attribute such as the font or a color is not
specified in any of the above ways, the frame's own font or color is
used.  In newer Emacs versions, this cannot happen, because the
`default' face specifies all attributes--in fact, the frame's own font
and colors are synonymous with those of the default face.

* Linux

  (set-fontset-font "fontset-startup" (make-char 'japanese-jisx0208)
		    '("*" . "JISX0208.1983"))

* 追記

(setq wl-summary-subject-function
      #'(lambda (subject-string)
	  (if (string-equal (elmo-folder-name-internal 
			     wl-summary-buffer-elmo-folder)
			    "+inbox")
	      subject-string
	    (wl-summary-default-subject subject-string))))

• NOIR DVD Vol.9
• NOIR DVD Vol.10
• ギャラクシーエンジェル(7)

* 素早い

(setq elmo-msgdb-extra-fields
      '("X-ML-Name" "Mailing-list" "Reply-To" "X-Mail-Count"))
(defun ari-wl-summary-subject-function (subject-string)
  (let ((folder (elmo-folder-name-internal wl-summary-buffer-elmo-folder)))
    (cond ((string-match "\\+inbox" folder)
	   subject-string)
	  ((string-match "^+ml/" folder)
	   (let ((count (elmo-msgdb-overview-entity-get-extra-field 
			 entity "x-mail-count")))
	     (cond (count
		    (concat "[" count "]"
			    (wl-summary-default-subject subject-string)))
		   ((string-match 
		     "^[ \t]*\\[[^:]+[,: ]\\([0-9]+\\)\\][ \t]*" 
		     subject-string)
		    (concat "[" (match-string 1 subject-string) "]"
			    (substring subject-string (match-end 0))))
		   (t
		    subject-string))))
	  (t
	   (wl-summary-default-subject subject-string)))))
(setq wl-summary-subject-function #'ari-wl-summary-subject-function)

* XEmacs

* Emacs-21.1