Mercurial > emacs

comparison lisp/gnus/gnus-diary.el @ 80525:1e3a4955a638

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Revision: emacs@sv.gnu.org/emacs--rel--22--patch-257
author Miles Bader <miles@gnu.org>
date Thu, 24 Apr 2008 04:51:03 +0000
parents 1cb31606209f
children
comparison
equal deleted inserted replaced
80524:5b7bb12a8a8f 80525:1e3a4955a638
388 )) 388 ))
389 389
390 (add-hook 'nndiary-request-accept-article-hooks 390 (add-hook 'nndiary-request-accept-article-hooks
391 (lambda () (gnus-diary-check-message nil))) 391 (lambda () (gnus-diary-check-message nil)))
392 392
393 (define-key message-mode-map "\C-cDc" 'gnus-diary-check-message) 393 (define-key message-mode-map "\C-c\C-fd" 'gnus-diary-check-message)
394 (define-key gnus-article-edit-mode-map "\C-cDc" 'gnus-diary-check-message) 394 (define-key gnus-article-edit-mode-map "\C-c\C-fd" 'gnus-diary-check-message)
395 395
396 396
397 ;; The end ================================================================== 397 ;; The end ==================================================================
398 398
399 (defun gnus-diary-version () 399 (defun gnus-diary-version ()
400 "Current Diary back end version." 400 "Current Diary back end version."
401 (interactive) 401 (interactive)
402 (message "NNDiary version %s" nndiary-version)) 402 (message "NNDiary version %s" nndiary-version))
403 403
404 (define-key message-mode-map "\C-cDv" 'gnus-diary-version)
405 (define-key gnus-article-edit-mode-map "\C-cDv" 'gnus-diary-version)
406
407
408 (provide 'gnus-diary) 404 (provide 'gnus-diary)
409 405
410 ;;; arch-tag: 98467e70-337e-4ddc-b92d-45d403ff1b4b 406 ;;; arch-tag: 98467e70-337e-4ddc-b92d-45d403ff1b4b
411 ;;; gnus-diary.el ends here 407 ;;; gnus-diary.el ends here