[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:00533] Re: T-gnus support

それから、Gnus 使いの人はとりあえず以下のコードを入れておくと、ちょっ
と幸せになれるかも知れません。


(defun mhc-gnus-next-schedule (n)
  (interactive "p")
  (let ((p (point)))
    (catch 'found
      (while (not (eobp))
	(forward-line 1)
	(and (get-text-property (point) 'gnus-number)
	     (<= (setq n (1- n)) 0)
	     (throw 'found t)))
      (goto-char p)
      (message "Can't find next schedule"))))

(defun mhc-gnus-previous-schedule (n)
  (interactive "p")
  (let ((p (point)))
    (catch 'found
      (while (not (bobp))
	(forward-line -1)
	(and (get-text-property (point) 'gnus-number)
	     (<= (setq n (1- n)) 0)
	     (throw 'found t)))
      (goto-char p)
      (message "Can't find previous schedule"))))

(add-hook 'gnus-summary-mode-hook
	  (lambda ()
	    (define-key gnus-summary-mode-map "\t" 'mhc-gnus-next-schedule)
	    (define-key gnus-summary-mode-map "\M-\t" 'mhc-gnus-previous-schedule)))

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )
    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/