トップ «前の日記(2005-03-06 (Sun)) 最新 次の日記(2005-03-10 (Thu))» 編集

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


2005-03-08 (Tue) [長年日記]

業務連絡: その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

proxy はわからないのだが、Select の All と None は欲しいのででっち上げ。きっとすぐに変えないとならないのだろうな。
;; 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")))
はずかしいところが微妙に変わっています > 丸山さん
本日のツッコミ(全1件) [ツッコミを入れる]
maru (2005-03-08 (Tue) 18:03)

うちだと、素の w3m だと文字コードが変になるときがあります。うーむ。<br>全部の機能は使えないよ、ごめんねーとアナウンスされてました。(^^; < Select 関係


書いている人: 白井秀行 (mailto:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed