Lines Matching +defs:gnus +defs:info
66 ;; in vm, gnus, and rmail:
68 ;; M-l ffap-next, or ffap-gnus-next in gnus (l == "link")
69 ;; M-m ffap-menu, or ffap-gnus-menu in gnus (m == "menu")
579 ((string-match "\\`gopher[-.]" mach) ; or "info"?
592 "Used by `ffap-newsgroup-p' if gnus is not running.")
598 (let ((htbs '(gnus-active-hashtb gnus-newsrc-hashtb gnus-killed-hashtb))
606 ;; gnus-gethash is just a macro for intern-soft.
610 ;; If we made it this far, gnus is running, so ignore "heads":
793 ("\\.info\\'" . ffap-info) ; gzip.info
794 ("\\`info/" . ffap-info-2) ; info/emacs
795 ("\\`[-[:lower:]]+\\'" . ffap-info-3) ; (emacs)Top [only in the parentheses]
797 (emacs-lisp-mode . ffap-el-mode) ; rmail, gnus, simple, custom
854 (defun ffap-info (name)
856 name '("" ".info")
861 (defun ffap-info-2 (name) (ffap-info (substring name 5)))
863 (defun ffap-info-3 (name)
865 (and (equal (ffap-string-around) "()") (ffap-info name)))
1739 (defun ffap-gnus-hook nil
1740 "Bind `ffap-gnus-next' and `ffap-gnus-menu' to M-l and M-m, resp."
1743 (local-set-key "\M-l" 'ffap-gnus-next)
1744 (local-set-key "\M-m" 'ffap-gnus-menu))
1746 (defvar gnus-summary-buffer)
1747 (defvar gnus-article-buffer)
1749 (defun ffap-gnus-wrapper (form) ; used by both commands below
1750 (and (eq (current-buffer) (get-buffer gnus-summary-buffer))
1751 (gnus-summary-select-article)) ; get article of current line
1756 (gnus-configure-windows 'article)
1757 (pop-to-buffer gnus-article-buffer)
1759 ;; Skip headers for ffap-gnus-next (which will wrap around)
1765 (defun ffap-gnus-next nil
1766 "Run `ffap-next' in the gnus article buffer."
1767 (interactive) (ffap-gnus-wrapper '(ffap-next nil t)))
1769 (defun ffap-gnus-menu nil
1770 "Run `ffap-menu' in the gnus article buffer."
1771 (interactive) (ffap-gnus-wrapper '(ffap-menu)))
1903 (add-hook 'gnus-summary-mode-hook 'ffap-gnus-hook)
1904 (add-hook 'gnus-article-mode-hook 'ffap-gnus-hook)