Lines Matching +defs:gnus +defs:article +defs:article +defs:menu
71 (require 'gnus-sum)
878 per-buffer basis from the Org->Hyperlinks menu."
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
1555 displaying the tags menu is not even shown, until you press C-c again."
1691 desc A description string to be displayed in the dispatcher menu.
3293 (defvar outline-mode-menu-heading)
3294 (defvar outline-mode-menu-show)
3295 (defvar outline-mode-menu-hide)
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3341 (defvar orgtbl-mode-menu) ; defined when orgtbl mode get initialized
3347 (defvar org-struct-menu)
3348 (defvar org-org-menu)
3349 (defvar org-tbl-menu)
3507 (when (boundp 'outline-mode-menu-heading)
3509 (easy-menu-remove outline-mode-menu-heading)
3510 (easy-menu-remove outline-mode-menu-show)
3511 (easy-menu-remove outline-mode-menu-hide))
3512 (define-key org-mode-map [menu-bar headings] 'undefined)
3513 (define-key org-mode-map [menu-bar hide] 'undefined)
3514 (define-key org-mode-map [menu-bar show] 'undefined))
3516 (easy-menu-add org-org-menu)
3517 (easy-menu-add org-tbl-menu)
3518 (org-install-agenda-files-menu)
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
8415 (easy-menu-add orgtbl-mode-menu)
8424 (easy-menu-remove orgtbl-mode-menu)
8442 (put 'orgtbl-mode :menu-tag "Org Table Mode")
8546 (easy-menu-define orgtbl-mode-menu orgtbl-mode-map "OrgTbl menu"
9135 ((eq major-mode 'gnus-group-mode)
9136 (let ((group (cond ((fboundp 'gnus-group-group-name) ; depending on Gnus
9137 (gnus-group-group-name)) ; version
9138 ((fboundp 'gnus-group-name)
9139 (gnus-group-name))
9142 (org-store-link-props :type "gnus" :group group)
9146 "gnus:")
9150 ((memq major-mode '(gnus-summary-mode gnus-article-mode))
9151 (and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
9152 (let* ((group gnus-newsgroup-name)
9153 (article (gnus-summary-article-number))
9154 (header (gnus-summary-article-header article))
9158 (subject (gnus-summary-subject-string)))
9159 (org-store-link-props :type "gnus" :from from :subject subject
9168 (setq link (org-make-link "gnus:" group
9169 "#" (number-to-string article))))))
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9708 (let (group article)
9712 article (match-string 3 path))
9713 (org-follow-gnus-link group article)))
9716 (let (folder article)
9720 article (match-string 3 path))
9722 (org-follow-vm-link folder article in-emacs)))
9725 (let (folder article)
9729 article (match-string 3 path))
9730 (org-follow-wl-link folder article)))
9733 (let (folder article)
9737 article (match-string 3 path))
9738 (org-follow-mhe-link folder article)))
9741 (let (folder article)
9745 article (match-string 3 path))
9746 (org-follow-rmail-link folder article)))
10062 (defun org-follow-gnus-link (&optional group article)
10064 (require 'gnus)
10065 (funcall (cdr (assq 'gnus org-link-frame-setup)))
10066 (if gnus-other-frame-object (select-frame gnus-other-frame-object))
10067 (cond ((and group article)
10068 (gnus-group-read-group 0 nil group)
10069 (gnus-summary-goto-article (string-to-number article) nil t))
10070 (group (gnus-group-jump-to-group group))))
10072 (defun org-follow-vm-link (&optional folder article readonly)
10075 (setq article (org-add-angle-brackets article))
10094 (when article
10100 (concat "^" "message-id: *" (regexp-quote article))))
10107 (defun org-follow-wl-link (folder article)
10110 article
10111 (string-match "^\\([^#]+\\)\\(#\\(.*\\)\\)?" article))
10113 ;; Thus, we recompose folder and article ids.
10114 (setq folder (format "%s#%s" folder (match-string 1 article))
10115 article (match-string 3 article)))
10119 (and article
10120 (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10123 (defun org-follow-rmail-link (folder article)
10125 (setq article (org-add-angle-brackets article))
10136 (or article "")))
10223 (defun org-follow-mhe-link (folder article)
10234 (if (not article)
10236 (setq article (org-add-angle-brackets article))
10240 (mh-search folder (list "--message-id" article))
10244 (mh-search "+" (list "--message-id" article))))
10245 (mh-search "+" article))
12932 (defvar org-agenda-menu) ; defined later in this file.
12955 (easy-menu-add org-agenda-menu)
12968 (easy-menu-change
12979 (mapcar 'org-file-menu-entry (org-agenda-files))))
13067 (easy-menu-define org-agenda-menu org-agenda-mode-map "Agenda menu"
13465 (org-install-agenda-files-menu)
13536 (org-install-agenda-files-menu)
13557 (org-install-agenda-files-menu)
13561 (defun org-file-menu-entry (file)
16248 (insert "\\documentclass{article}
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
18691 (define-key org-mode-map 'button3 'popup-mode-menu))
19084 (easy-menu-define org-tbl-menu org-mode-map "Tbl menu"
19143 (easy-menu-define org-org-menu org-mode-map "Org menu"
19294 ["Expand This Menu" org-create-customize-menu
19295 (fboundp 'customize-menu-create)])
19316 (defun org-install-agenda-files-menu ()
19323 (easy-menu-change
19332 (mapcar 'org-file-menu-entry (org-agenda-files t))))))))
19341 (defun org-create-customize-menu ()
19342 "Create a full customization menu for Org-mode, insert it into the menu."
19344 (if (fboundp 'customize-menu-create)
19346 (easy-menu-change
19350 ,(customize-menu-create 'org)
19356 (message "\"Org\"-menu now contains full customization menu"))
19357 (error "Cannot expand menu (outdated version of cus-edit.el)")))