猫熊は燃えつきた？！日記

○ 業務連絡: その2

えーー、あべくんから丸山さんに返事が来ました :-)

○ GMail New Features

おぉ、emacs-w3m から GMail が読めた。しかし、問題点が二つほど。

• Select: All, None, Read, Unread, Starred, Unstarred が出ない(というかない)
• proxy を経由していると、cookie の扱いがおかしいらしくて、cookie に対応したブラウザを使え、と怒られる。no-proxy なら OK。また、素の w3m は proxy 経由でも大丈夫。

cookie の方はどうしてなのかわからん。w3m-compile-options から "cookie" を delete して、cookie の制御を w3m 側に渡すとなぜだか OK になる。

○ 業務連絡: その3

えーー、丸山さんからあべくんにまたまた返事が来ました :-)

○ GMail vs emacs-w3m

;; GMail で all-check してみる
(add-hook 'w3m-mode-hook
	  (lambda ()
	    (define-key w3m-mode-map "\M-o" 'w3m-gmail-allcheck-on)
	    (define-key w3m-mode-map "\M-O" 'w3m-gmail-allcheck-off)))
 
(defun w3m-gmail-allcheck-on ()
  (interactive)
  (if (and (eq major-mode 'w3m-mode)
	   w3m-current-url
	   (string-match "http://gmail\\.google\\.com/gmail/" w3m-current-url))
      (save-excursion
	(let (pos prop)
	  (goto-char (point-min))
	  (setq pos (point))
	  (while (setq pos
		       (next-single-property-change pos 'w3m-form-field-id))
	    (when pos
	      (setq prop (get-text-property pos 'w3m-form-field-id))
	      (when (and prop (stringp prop)
			 (string-match "^fid=1/type=checkbox/name=t/id=[0-9]+$" prop))
		(goto-char pos)
		(when (eq (char-after) ? )
		  (w3m-view-this-url)))))))
    (message "No execute here")))
    
(defun w3m-gmail-allcheck-off ()
  (interactive)
  (if (and (eq major-mode 'w3m-mode)
	   w3m-current-url
	   (string-match "http://gmail\\.google\\.com/gmail/" w3m-current-url))
      (save-excursion
	(let (pos prop)
	  (goto-char (point-min))
	  (setq pos (point))
	  (while (setq pos
		       (next-single-property-change pos 'w3m-form-field-id))
	    (when pos
	      (setq prop (get-text-property pos 'w3m-form-field-id))
	      (when (and prop (stringp prop)
			 (string-match "^fid=1/type=checkbox/name=t/id=[0-9]+$" prop))
		(goto-char pos)
		(when (eq (char-after) ?*)
		  (w3m-view-this-url)))))))
    (message "No execute here")))