mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code
e0815d7545
org-mode/lisp/ol-gnus.el

276 lines
10 KiB
EmacsLisp
Raw Normal View History

Prefix link-related libraries filenames with "ol" * lisp/org.el (org-modules): Update provided symbols.
2019-03-02 00:01:32 +00:00
;;; ol-gnus.el --- Links to Gnus Groups and Messages -*- lexical-binding: t; -*-
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
Backport commit cae528457 from Emacs ; Add 2023 to copyright years. cae528457cb862dc886a34240c9d4c73035b6659 Eli Zaretskii Sun Jan 1 05:31:12 2023 -0500
2023-01-01 10:31:12 +00:00
;; Copyright (C) 2004-2023 Free Software Foundation, Inc.
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
Update Carsten's email address in some files
2021-05-07 14:50:57 +00:00
;; Author: Carsten Dominik <carsten.dominik@gmail.com>
Improved links to usenet messages on the web. Tassilo Horn writes: here's the promised refactoring of org-gnus.el: - Rename org-usenet-links-prefer-google to org-gnus-prefer-web-links - Make that option work for gmane - Only make weblinks if the article is in a newsgroup - Only make weblinks if the article has no X-No-Archive header There is little drawback: - Gnus stored some headers in an array and makes them instantly available. Unfortunately that doesn't apply to X-No-Archive, so I have to select and widen the article buffer and parse anew.
2008-11-19 11:22:43 +00:00
;; Tassilo Horn <tassilo at member dot fsf dot org>
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
;; Keywords: outlines, hypermedia, calendar, wp
Prefer "website" to "homepage" Emacs now advises using "website" (instead of "homepage") and consequently to use the "URL" comment header instead of "Homepage". * README: * README_ELPA: * doc/org-guide.org (Creating Footnotes): * doc/org-manual.org (Creating Footnotes): * etc/styles/README (URL): Prefer "website" to "homepage". * lisp/*.el: * mk/org-fixup.el: Replace the "Homepage" header comment with "URL".
2021-09-26 07:44:29 +00:00
;; URL: https://orgmode.org
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
;;
;; This file is part of GNU Emacs.
;;
Sync copyright fixes from downstream Emacs
2008-05-06 12:45:52 +00:00
;; GNU Emacs is free software: you can redistribute it and/or modify
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
;; it under the terms of the GNU General Public License as published by
Sync copyright fixes from downstream Emacs
2008-05-06 12:45:52 +00:00
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
Backport commit bc511a64f from Emacs Prefer HTTPS to FTP and HTTP in documentation bc511a64f6da9ab51acc7c8865e80c4a4cb655c2 Paul Eggert Wed Sep 13 15:54:37 2017 -0700
2017-09-13 22:52:52 +00:00
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
Change "Org-mode" into "Org mode" * lisp/org-agenda.el: * lisp/org-attach.el: * lisp/org-bbdb.el: * lisp/org-capture.el: * lisp/org-clock.el: * lisp/org-entities.el: * lisp/org-gnus.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-info.el: * lisp/org-inlinetask.el: * lisp/org-irc.el: * lisp/org-list.el: * lisp/org-mhe.el: * lisp/org-mouse.el: * lisp/org-table.el: * lisp/ox-html.el: * lisp/ox-odt.el: Use "Org mode", or "Org", instead of "Org-mode".
2016-10-11 16:00:08 +00:00
;; This file implements links to Gnus groups and messages from within Org.
Turn org-mode into Org or Org mode Use Org or Org mode instead of org-mode or Org-mode according to "Documentation standards".
2016-08-23 20:13:56 +00:00
;; Org mode loads this module by default - if this is not what you want,
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
;; configure the variable `org-modules'.
Doc fixes by Philip Rooke <phil@yax.org.uk> A number of small changes. Mainly they are to pacify 'checkdoc-ispell' (if it seems appropriate) and to standardise the names of the packages you can link to from within Org-mode. I am using the package names as spelt or abbreviated in their own documentation (if I have been able to find it easily). Thus, for example, prefer MH-E over MHE, Rmail over RMAIL etc.
2008-03-21 16:10:23 +00:00
;;; Code:
Assert all the Org files to load the same Org version * lisp/org-compat.el (org-assert-version): New macro comparing Org version at compile time and laod time. Add `org-assert-version' call to all files: * lisp/org-macs.el: * lisp/org-crypt.el: * lisp/org-ctags.el: * lisp/org-cycle.el: * lisp/org-datetree.el: * lisp/org-duration.el: * lisp/org-element.el (avl-tree): * lisp/org-entities.el: * lisp/org-faces.el: * lisp/org-feed.el: * lisp/org-fold-core.el: * lisp/org-fold.el: * lisp/org-footnote.el: * lisp/org-goto.el: * lisp/org-habit.el: * lisp/org-id.el: * lisp/org-indent.el: * lisp/org-inlinetask.el: * lisp/org-keys.el: * lisp/org-lint.el: * lisp/org-list.el: * lisp/org-macro.el: * lisp/org-mobile.el: * lisp/org-mouse.el: * lisp/org-num.el: * lisp/org-pcomplete.el: * lisp/org-persist.el: * lisp/org-plot.el: * lisp/org-protocol.el: * lisp/org-refile.el: * lisp/org-src.el: * lisp/org-table.el: * lisp/org-tempo.el: * lisp/org-timer.el: * lisp/org.el: * lisp/ox-ascii.el: * lisp/ox-beamer.el: * lisp/ox-html.el: * lisp/ox-icalendar.el: * lisp/ox-koma-letter.el: * lisp/ox-latex.el: * lisp/ox-man.el: * lisp/ox-md.el: * lisp/ox-odt.el: * lisp/ox-org.el: * lisp/ox-publish.el: * lisp/ox-texinfo.el: * lisp/ox.el:
2022-08-04 13:53:05 +00:00
(require 'org-macs)
(org-assert-version)
org-gnus: Silence byte-compiler Fixes: 29329
2017-12-03 15:22:45 +00:00
(require 'gnus-sum)
add a missing require for gnus-util * lisp/org-gnus.el: Add a missing require for gnus-util. * contrib/lisp/org-contacts.el: Add a missing require for gnus-util.
2012-09-06 17:54:28 +00:00
(require 'gnus-util)
org-gnus: Silence byte-compiler Fixes: 29329
2017-12-03 15:22:45 +00:00
(require 'nnheader)
ol-gnus: Prefer nnselect to nnir if available * lisp/ol-gnus.el (org-gnus-store-link): Use nnselect when available. In the master branch of the Emacs repository, f103e89c1d (Add aliases for recent Gnus nnselect changes, 2020-09-07) switched org-gnus-store-link over to using nnselect, but that can't be ported as is because it isn't backward compatible. Make a similar change that includes compatibility kludges.
2020-09-08 03:17:30 +00:00
(or (require 'nnselect nil t) ; Emacs >= 28
(require 'nnir nil t)) ; Emacs < 28
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
(require 'ol)
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
org-gnus: Remove unnecessary declarations
2017-06-05 12:30:45 +00:00
;;; Declare external functions and variables
org-gnus.el: silent compiler
2014-06-13 10:26:10 +00:00
org-gnus: Silence byte-compiler Fixes: 29329
2017-12-03 15:22:45 +00:00
(declare-function gnus-activate-group "gnus-start" (group &optional scan dont-check method dont-sub-check))
(declare-function gnus-find-method-for-group "gnus" (group &optional info))
org-gnus: Fix `org-gnus-store-link' * lisp/org-gnus.el (org-gnus-store-link): Fix storing link from an article when point in the summary buffer does not match the article. Reported-by: Kevin Brubeck Unhammer <unhammer@fsfe.org> <http://lists.gnu.org/r/emacs-orgmode/2018-03/msg00037.html>
2018-03-03 22:31:25 +00:00
(declare-function gnus-article-show-summary "gnus-art" ())
org-gnus: Silence byte-compiler Fixes: 29329
2017-12-03 15:22:45 +00:00
(declare-function gnus-group-group-name "gnus-group")
(declare-function gnus-group-jump-to-group "gnus-group" (group &optional prompt))
(declare-function gnus-group-read-group "gnus-group" (&optional all no-article group select-articles))
Clean up the require stuff in org-gnus.el
2009-09-07 15:40:58 +00:00
(declare-function message-fetch-field "message" (header &optional not-all))
org-gnus: Silence byte-compiler Fixes: 29329
2017-12-03 15:22:45 +00:00
(declare-function message-generate-headers "message" (headers))
(declare-function message-narrow-to-headers "message")
(declare-function message-tokenize-header "message" (header &optional separator))
(declare-function message-unquote-tokens "message" (elems))
org-gnus.el: silent compiler
2014-06-13 10:26:10 +00:00
(declare-function nnvirtual-map-article "nnvirtual" (article))
org-gnus: Silence byte-compiler Fixes: 29329
2017-12-03 15:22:45 +00:00
(defvar gnus-newsgroup-name)
(defvar gnus-summary-buffer)
(defvar gnus-other-frame-object)
org-gnus: Remove unnecessary declarations
2017-06-05 12:30:45 +00:00
;;; Customization variables
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
Improved links to usenet messages on the web. Tassilo Horn writes: here's the promised refactoring of org-gnus.el: - Rename org-usenet-links-prefer-google to org-gnus-prefer-web-links - Make that option work for gmane - Only make weblinks if the article is in a newsgroup - Only make weblinks if the article has no X-No-Archive header There is little drawback: - Gnus stored some headers in an array and makes them instantly available. Unfortunately that doesn't apply to X-No-Archive, so I have to select and widen the article buffer and parse anew.
2008-11-19 11:22:43 +00:00
(defcustom org-gnus-prefer-web-links nil
ol-gnus.el: Remove references to Gmane * lisp/ol-gnus.el (org-gnus-prefer-web-links) (org-gnus-group-link, org-gnus-article-link): Remove references to Gmane, as Gmane's web service is off.
2020-02-12 08:57:43 +00:00
"If non-nil, `org-store-link' creates web links to Google groups.
Improve docstrings * lisp/ob-core.el (org-confirm-babel-evaluate): (org-babel-no-eval-on-ctrl-c-ctrl-c): (org-babel-hash-at-point): * lisp/org-agenda.el (org-agenda-custom-commands): (org-stuck-projects): (org-agenda): (org-timeline): (org-todo-list): (org-agenda-filter-by-tag): (org-agenda-log-mode): (org-agenda-refile): (org-agenda-show-and-scroll-up): (org-agenda-tree-to-indirect-buffer): (org-agenda-show-the-flagging-note): (org-agenda-to-appt): * lisp/org-capture.el (org-capture-mode): (org-capture-use-agenda-date): (org-capture): * lisp/org-clock.el (org-clock-in): (org-clock-display): * lisp/org-colview.el (org-columns--display-here): (org-columns): * lisp/org-footnote.el (org-footnote-section): * lisp/org-gnus.el (org-gnus-prefer-web-links): * lisp/org-lint.el (org-lint): * lisp/org-list.el (org-plain-list-ordered-item-terminator): (org-list-allow-alphabetical): (org-list-automatic-rules): (org-list-use-circular-motion): * lisp/org-protocol.el (org-protocol-store-link): (org-protocol-create-for-org): * lisp/org-src.el (org-src-preserve-indentation): (org-edit-src-content-indentation): (org-src-mode-hook): (org-src-mode): (org-edit-table.el): (org-edit-export-block): (org-edit-src-code): (org-edit-fixed-width-region): * lisp/org-table.el (org-table-automatic-realign): (org-table-copy-increment): (org-table-formula-evaluate-inline): (org-table-allow-automatic-line-recalculation): (org-table-edit-field): (orgtbl-ascii-plot): * lisp/org-timer.el (org-timer): * lisp/org.el (org-deadline-string): (org-comment-string): (org-ellipsis): (org-show-context-detail): (org-indirect-buffer-display): (org-cycle-global-at-bob): (org-insert-heading-respect-content): (org-enable-table-editor): (org-context-in-file-links): (org-display-internal-link-with-indirect-buffer): (org-file-apps): (org-refile-targets): (org-todo-keywords): (org-use-fast-todo-selection): (org-treat-insert-todo-heading-as-state-change): (org-time-clocksum-use-fractional): (org-time-clocksum-use-effort-durations): (org-agenda-files): (org-cycle-hide-archived-subtrees): (org-cycle): (org-global-cycle): (org-tree-to-indirect-buffer): (org-insert-heading): (org-store-link): (org-insert-link): (org-mark-ring-push): (org-refile): (org-todo): (org-show-todo-tree): (org-reveal): (org-check-deadlines): (org-switchb): (org-cdlatex-mode): (org-toggle-latex-fragment): (org-ctrl-c-ctrl-c): (org-toggle-heading): (org-indent-line): (org-yank): (org-speedbar-set-agenda-restriction): * lisp/ox-html.el (org-html-htmlize-output-type): * lisp/ox-icalendar.el (org-icalendar-combined-agenda-file): * lisp/ox-publish.el (org-publish-project-alist): * lisp/ox.el (org-export-in-background): (org-export-stack-mode): (org-export--stack-source-at-point): (org-export-dispatch): Improve quotes and formatting in docstrings.
2016-10-15 15:36:47 +00:00
\\<org-mode-map>When nil, Gnus will be used for such links.
Using a prefix argument to the command `\\[org-store-link]' (`org-store-link')
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
negates this setting for the duration of the command."
:group 'org-link-store
:type 'boolean)
org-gnus.el: New option to start Gnus with `gnus-no-server' * org-gnus.el (org-gnus-no-server): New option to start Gnus using `gnus-no-server'. (org-gnus-no-new-news): Use the new option. TINYCHANGE
2012-09-25 09:55:26 +00:00
(defcustom org-gnus-no-server nil
"Should Gnus be started using `gnus-no-server'?"
Fix missing customization groups * lisp/ob-tangle.el (org-babel-tangle): Add missing group definition. (org-babel-post-tangle-hook): (org-babel-pre-tangle-hook): (org-babel-tangle-body-hook): (org-babel-tangle-finished-hook): (org-babel-tangle-comment-format-beg): (org-babel-tangle-comment-format-end): (org-babel-tangle-uncomment-comments): (org-babel-process-comment-text): (org-babel-tangle-default-file-mode): Move under `org-babel-tangle' group. * lisp/ol-bbdb.el (org-bbdb-anniversaries): Move under `org-agenda' instead of a non-existent `org-bbdb'. * lisp/ol-bibtex.el (org-bibtex): Add missing group definition. * lisp/ol-gnus.el (org-gnus-no-server): Move under group `org-link-follow' instead of a non-existent `org-gnus'. * lisp/org-plot.el (org-plot): Add missing group definition. * lisp/org.el (org-startup): Add missing group definition. * lisp/ox-latex.el (org-latex-pdf-process): Move under `org-export-latex' instead of a non-existent `org-export-pdf'. * lisp/ox-man.el (org-man-pdf-process): Remove reference to non-existent group `org-export-pdf'. TINYCHANGE
2022-11-15 22:49:56 +00:00
:group 'org-link-follow
Bump :version to "24.4" and add :package-version. The options updated are those who won't be in Emacs 24.3.
2013-02-26 17:21:28 +00:00
:version "24.4"
:package-version '(Org . "8.0")
org-gnus.el: New option to start Gnus with `gnus-no-server' * org-gnus.el (org-gnus-no-server): New option to start Gnus using `gnus-no-server'. (org-gnus-no-new-news): Use the new option. TINYCHANGE
2012-09-25 09:55:26 +00:00
:type 'boolean)
org-gnus: Remove unnecessary declarations
2017-06-05 12:30:45 +00:00
;;; Install the link type
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
org-gnus: Remove unnecessary declarations
2017-06-05 12:30:45 +00:00
(org-link-set-parameters "gnus"
:follow #'org-gnus-open
:store #'org-gnus-store-link)
;;; Implementation
Improved links to usenet messages on the web. Tassilo Horn writes: here's the promised refactoring of org-gnus.el: - Rename org-usenet-links-prefer-google to org-gnus-prefer-web-links - Make that option work for gmane - Only make weblinks if the article is in a newsgroup - Only make weblinks if the article has no X-No-Archive header There is little drawback: - Gnus stored some headers in an array and makes them instantly available. Unfortunately that doesn't apply to X-No-Archive, so I have to select and widen the article buffer and parse anew.
2008-11-19 11:22:43 +00:00
(defun org-gnus-group-link (group)
Add documentation to new functions in org-gnus.el.
2008-11-20 13:22:46 +00:00
"Create a link to the Gnus group GROUP.
If GROUP is a newsgroup and `org-gnus-prefer-web-links' is
ol-gnus.el: Remove references to Gmane * lisp/ol-gnus.el (org-gnus-prefer-web-links) (org-gnus-group-link, org-gnus-article-link): Remove references to Gmane, as Gmane's web service is off.
2020-02-12 08:57:43 +00:00
non-nil, create a link to groups.google.com. Otherwise create a
link to the group inside Gnus.
Add documentation to new functions in org-gnus.el.
2008-11-20 13:22:46 +00:00
If `org-store-link' was called with a prefix arg the meaning of
`org-gnus-prefer-web-links' is reversed."
Improved links to usenet messages on the web. Tassilo Horn writes: here's the promised refactoring of org-gnus.el: - Rename org-usenet-links-prefer-google to org-gnus-prefer-web-links - Make that option work for gmane - Only make weblinks if the article is in a newsgroup - Only make weblinks if the article has no X-No-Archive header There is little drawback: - Gnus stored some headers in an array and makes them instantly available. Unfortunately that doesn't apply to X-No-Archive, so I have to select and widen the article buffer and parse anew.
2008-11-19 11:22:43 +00:00
(let ((unprefixed-group (replace-regexp-in-string "^[^:]+:" "" group)))
String handling improvements. * lisp/org-agenda.el (org-agenda-export-csv-mapper): Use `replace-regexp-in-string'. * lisp/org-capture.el (org-capture): Use `string-prefix-p'. * lisp/org-compat.el (string-blank-p, string-remove-prefix): * lisp/org-compat.el (string-remove-suffix): Add compatibility defuns for emacs 24.3. * lisp/org-datetree.el (org-datetree-cleanup): Use `string-suffix-p'. * lisp/org-footnote.el (org-footnote-normalize-label): Use `string-remove-prefix'. * lisp/org-gnus.el (org-gnus-group-link): Use `string-prefix-p'. * lisp/org-list.el (org-list-struct): (org-list-get-list-type, org-list-send-item): (org-list-use-alpha-bul-p): Use `string-match-p'. * lisp/org.el (org-paste-subtree): Use `string-suffix-p'. (org-open-file, org-refile-get-targets): Use `replace-regexp-in-string'. (org-make-tags-matcher): Use `string-prefix-p'. (org-set-tags): Use `string-(prefix,suffix)-p'. * lisp/ox-beamer.el (org-beamer--element-has-overlay-p): (org-beamer--format-block): Use `string-(prefix,suffix)-p'. * lisp/ox-html.el (org-html-fix-class-name): Use `replace-regexp-in-string'. * lisp/ox-md.el (org-md-verbatim): Use `string-(prefix,suffix)-p'. (org-md-paragraph): Use `string-prefix-p'.
2016-09-03 01:05:10 +00:00
(if (and (string-prefix-p "nntp" group) ;; Only for nntp groups
Improved links to usenet messages on the web. Tassilo Horn writes: here's the promised refactoring of org-gnus.el: - Rename org-usenet-links-prefer-google to org-gnus-prefer-web-links - Make that option work for gmane - Only make weblinks if the article is in a newsgroup - Only make weblinks if the article has no X-No-Archive header There is little drawback: - Gnus stored some headers in an array and makes them instantly available. Unfortunately that doesn't apply to X-No-Archive, so I have to select and widen the article buffer and parse anew.
2008-11-19 11:22:43 +00:00
(org-xor current-prefix-arg
org-gnus-prefer-web-links))
ol-gnus.el: Remove references to Gmane * lisp/ol-gnus.el (org-gnus-prefer-web-links) (org-gnus-group-link, org-gnus-article-link): Remove references to Gmane, as Gmane's web service is off.
2020-02-12 08:57:43 +00:00
(concat "https://groups.google.com/group/" unprefixed-group)
Delete `org-make-link' and replace previous occurrences by `concat'. * org.el (org-make-link): Delete. (org-store-link, org-insert-link) (org-file-complete-link): Don't use `org-make-link'. * org-wl.el (org-wl-store-link-folder) (org-wl-store-link-message): Ditto. * org-vm.el (org-vm-store-link): Ditto. * org-rmail.el (org-rmail-store-link): Ditto. * org-mhe.el (org-mhe-store-link): Ditto. * org-mew.el (org-mew-store-link): Ditto. * org-irc.el (org-irc-erc-store-link): Ditto. * org-info.el (org-info-store-link): Ditto. * org-id.el (org-id-store-link): Ditto. * org-gnus.el (org-gnus-group-link, org-gnus-article-link): Ditto. * org-eshell.el (org-eshell-store-link): Ditto. * org-bbdb.el (org-bbdb-store-link): Ditto.
2012-08-03 17:03:21 +00:00
(concat "gnus:" group))))
Improved links to usenet messages on the web. Tassilo Horn writes: here's the promised refactoring of org-gnus.el: - Rename org-usenet-links-prefer-google to org-gnus-prefer-web-links - Make that option work for gmane - Only make weblinks if the article is in a newsgroup - Only make weblinks if the article has no X-No-Archive header There is little drawback: - Gnus stored some headers in an array and makes them instantly available. Unfortunately that doesn't apply to X-No-Archive, so I have to select and widen the article buffer and parse anew.
2008-11-19 11:22:43 +00:00
(defun org-gnus-article-link (group newsgroups message-id x-no-archive)
Add documentation to new functions in org-gnus.el.
2008-11-20 13:22:46 +00:00
"Create a link to a Gnus article.
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
Add documentation to new functions in org-gnus.el.
2008-11-20 13:22:46 +00:00
The article is specified by its MESSAGE-ID. Additional
parameters are the Gnus GROUP, the NEWSGROUPS the article was
posted to and the X-NO-ARCHIVE header value of that article.
If GROUP is a newsgroup and `org-gnus-prefer-web-links' is
ol-gnus.el: Remove references to Gmane * lisp/ol-gnus.el (org-gnus-prefer-web-links) (org-gnus-group-link, org-gnus-article-link): Remove references to Gmane, as Gmane's web service is off.
2020-02-12 08:57:43 +00:00
non-nil, create a link to groups.google.com.
Add documentation to new functions in org-gnus.el.
2008-11-20 13:22:46 +00:00
Otherwise create a link to the article inside Gnus.
If `org-store-link' was called with a prefix arg the meaning of
`org-gnus-prefer-web-links' is reversed."
Improved links to usenet messages on the web. Tassilo Horn writes: here's the promised refactoring of org-gnus.el: - Rename org-usenet-links-prefer-google to org-gnus-prefer-web-links - Make that option work for gmane - Only make weblinks if the article is in a newsgroup - Only make weblinks if the article has no X-No-Archive header There is little drawback: - Gnus stored some headers in an array and makes them instantly available. Unfortunately that doesn't apply to X-No-Archive, so I have to select and widen the article buffer and parse anew.
2008-11-19 11:22:43 +00:00
(if (and (org-xor current-prefix-arg org-gnus-prefer-web-links)
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
newsgroups ;make web links only for nntp groups
(not x-no-archive)) ;and if X-No-Archive isn't set
ol-gnus.el: Remove references to Gmane * lisp/ol-gnus.el (org-gnus-prefer-web-links) (org-gnus-group-link, org-gnus-article-link): Remove references to Gmane, as Gmane's web service is off.
2020-02-12 08:57:43 +00:00
(format "https://groups.google.com/groups/search?as_umsgid=%s"
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
(url-encode-url message-id))
Delete `org-make-link' and replace previous occurrences by `concat'. * org.el (org-make-link): Delete. (org-store-link, org-insert-link) (org-file-complete-link): Don't use `org-make-link'. * org-wl.el (org-wl-store-link-folder) (org-wl-store-link-message): Ditto. * org-vm.el (org-vm-store-link): Ditto. * org-rmail.el (org-rmail-store-link): Ditto. * org-mhe.el (org-mhe-store-link): Ditto. * org-mew.el (org-mew-store-link): Ditto. * org-irc.el (org-irc-erc-store-link): Ditto. * org-info.el (org-info-store-link): Ditto. * org-id.el (org-id-store-link): Ditto. * org-gnus.el (org-gnus-group-link, org-gnus-article-link): Ditto. * org-eshell.el (org-eshell-store-link): Ditto. * org-bbdb.el (org-bbdb-store-link): Ditto.
2012-08-03 17:03:21 +00:00
(concat "gnus:" group "#" message-id)))
Improved links to usenet messages on the web. Tassilo Horn writes: here's the promised refactoring of org-gnus.el: - Rename org-usenet-links-prefer-google to org-gnus-prefer-web-links - Make that option work for gmane - Only make weblinks if the article is in a newsgroup - Only make weblinks if the article has no X-No-Archive header There is little drawback: - Gnus stored some headers in an array and makes them instantly available. Unfortunately that doesn't apply to X-No-Archive, so I have to select and widen the article buffer and parse anew.
2008-11-19 11:22:43 +00:00
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
(defun org-gnus-store-link ()
Doc fixes by Philip Rooke <phil@yax.org.uk> A number of small changes. Mainly they are to pacify 'checkdoc-ispell' (if it seems appropriate) and to standardise the names of the packages you can link to from within Org-mode. I am using the package names as spelt or abbreviated in their own documentation (if I have been able to find it easily). Thus, for example, prefer MH-E over MHE, Rmail over RMAIL etc.
2008-03-21 16:10:23 +00:00
"Store a link to a Gnus folder or message."
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
(pcase major-mode
(`gnus-group-mode
(let ((group (gnus-group-group-name)))
(when group
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
(org-link-store-props :type "gnus" :group group)
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
(let ((description (org-gnus-group-link group)))
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
(org-link-add-props :link description :description description)
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
description))))
((or `gnus-summary-mode `gnus-article-mode)
(let* ((group
(pcase (gnus-find-method-for-group gnus-newsgroup-name)
(`(nnvirtual . ,_)
Preserve position of point in gnus virtual group * lisp/org-gnus.el: (org-gnus-store-link) Add a save-excursion to protect the position of point. Otherwise, when calling org-capture in an article with a virtual group, the point is moved and the region captured is incorrect.
2017-11-29 15:17:55 +00:00
(save-excursion
(car (nnvirtual-map-article (gnus-summary-article-number)))))
ol-gnus: Prefer nnselect to nnir if available * lisp/ol-gnus.el (org-gnus-store-link): Use nnselect when available. In the master branch of the Emacs repository, f103e89c1d (Add aliases for recent Gnus nnselect changes, 2020-09-07) switched org-gnus-store-link over to using nnselect, but that can't be ported as is because it isn't backward compatible. Make a similar change that includes compatibility kludges.
2020-09-08 03:17:30 +00:00
(`(,(or `nnselect `nnir) . ,_) ; nnir is for Emacs < 28.
Preserve point when storing link in Gnus nnir groups * lisp/org-gnus.el: (org-gnus-store-link) This fixes a similar issue as commit 84b329516efbe92ea5385f2aa2ad2779ab44b427, but for nnir search groups in gnus.
2017-11-29 18:37:07 +00:00
(save-excursion
ol-gnus: Prefer nnselect to nnir if available * lisp/ol-gnus.el (org-gnus-store-link): Use nnselect when available. In the master branch of the Emacs repository, f103e89c1d (Add aliases for recent Gnus nnselect changes, 2020-09-07) switched org-gnus-store-link over to using nnselect, but that can't be ported as is because it isn't backward compatible. Make a similar change that includes compatibility kludges.
2020-09-08 03:17:30 +00:00
(cond
((fboundp 'nnselect-article-group)
(nnselect-article-group (gnus-summary-article-number)))
((fboundp 'nnir-article-group)
(nnir-article-group (gnus-summary-article-number)))
(t
(error "No article-group variant bound")))))
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
(_ gnus-newsgroup-name)))
org-gnus: Fix `org-gnus-store-link' * lisp/org-gnus.el (org-gnus-store-link): Fix storing link from an article when point in the summary buffer does not match the article. Reported-by: Kevin Brubeck Unhammer <unhammer@fsfe.org> <http://lists.gnu.org/r/emacs-orgmode/2018-03/msg00037.html>
2018-03-03 22:31:25 +00:00
(header (if (eq major-mode 'gnus-article-mode)
;; When in an article, first move to summary
;; buffer, with point on the summary of the
;; current article before extracting headers.
(save-window-excursion
(save-excursion
(gnus-article-show-summary)
(gnus-summary-article-header)))
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
(gnus-summary-article-header)))
(from (mail-header-from header))
(message-id (org-unbracket-string "<" ">" (mail-header-id header)))
(date (org-trim (mail-header-date header)))
;; Remove text properties of subject string to avoid Emacs
;; bug #3506.
(subject (org-no-properties
(copy-sequence (mail-header-subject header))))
(to (cdr (assq 'To (mail-header-extra header))))
newsgroups x-no-archive)
;; Fetching an article is an expensive operation; newsgroup and
;; x-no-archive are only needed for web links.
(when (org-xor current-prefix-arg org-gnus-prefer-web-links)
;; Make sure the original article buffer is up-to-date.
(save-window-excursion (gnus-summary-select-article))
(setq to (or to (gnus-fetch-original-field "To")))
(setq newsgroups (gnus-fetch-original-field "Newsgroups"))
(setq x-no-archive (gnus-fetch-original-field "x-no-archive")))
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
(org-link-store-props :type "gnus" :from from :date date :subject subject
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
:message-id message-id :group group :to to)
(let ((link (org-gnus-article-link
group newsgroups message-id x-no-archive))
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
(description (org-link-email-description)))
(org-link-add-props :link link :description description)
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
link)))
(`message-mode
(setq org-store-link-plist nil) ;reset
(save-excursion
(save-restriction
(message-narrow-to-headers)
(unless (message-fetch-field "Message-ID")
(message-generate-headers '(Message-ID)))
(goto-char (point-min))
(re-search-forward "^Message-ID:" nil t)
(put-text-property (line-beginning-position) (line-end-position)
'message-deletable nil)
(let ((gcc (org-last (message-unquote-tokens
(message-tokenize-header
(mail-fetch-field "gcc" nil t) " ,"))))
(id (org-unbracket-string "<" ">"
*el: Fix indentation
2021-09-29 07:22:47 +00:00
(mail-fetch-field "Message-ID")))
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
(to (mail-fetch-field "To"))
(from (mail-fetch-field "From"))
(subject (mail-fetch-field "Subject"))
Backport commit 7d0dc3183 from Emacs * lisp/ob-lilypond.el (org-babel-lilypond-compile-lilyfile): Remove always-nil variable `arg-2`. * lisp/ol-gnus.el (org-gnus-store-link): Remove always-nil variables `newsgroup` and `xarchive`. * lisp/ol.el (org-store-link): Remove always-nil variable `description`. * lisp/org-clock.el (org-clock-special-range): Remove always-nil variables `m1` and `m`. * lisp/org-crypt.el (org--matcher-tags-todo-only): Declare var. * lisp/org-protocol.el (org-protocol-open-source): Remove always-nil variable `result`. * lisp/ox-odt.el (org-odt-format-label): Remove always-nil variable `short-caption`. (org-odt-link--inline-formula): Remove always-nil variables `width` and `height`. * lisp/ox.el (org-export--missing-definitions): Remove always-nil variable `seen`. * lisp/: Delete some always-nil variables 7d0dc31833d471a6f86e947d3165d3fd1452a184 Stefan Monnier Thu Mar 11 13:07:37 2021 -0500
2021-03-11 18:07:37 +00:00
) ;; newsgroup xarchive ;those are always nil for gcc
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
(unless gcc (error "Can not create link: No Gcc header found"))
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
(org-link-store-props :type "gnus" :from from :subject subject
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
:message-id id :group gcc :to to)
Backport commit 7d0dc3183 from Emacs * lisp/ob-lilypond.el (org-babel-lilypond-compile-lilyfile): Remove always-nil variable `arg-2`. * lisp/ol-gnus.el (org-gnus-store-link): Remove always-nil variables `newsgroup` and `xarchive`. * lisp/ol.el (org-store-link): Remove always-nil variable `description`. * lisp/org-clock.el (org-clock-special-range): Remove always-nil variables `m1` and `m`. * lisp/org-crypt.el (org--matcher-tags-todo-only): Declare var. * lisp/org-protocol.el (org-protocol-open-source): Remove always-nil variable `result`. * lisp/ox-odt.el (org-odt-format-label): Remove always-nil variable `short-caption`. (org-odt-link--inline-formula): Remove always-nil variables `width` and `height`. * lisp/ox.el (org-export--missing-definitions): Remove always-nil variable `seen`. * lisp/: Delete some always-nil variables 7d0dc31833d471a6f86e947d3165d3fd1452a184 Stefan Monnier Thu Mar 11 13:07:37 2021 -0500
2021-03-11 18:07:37 +00:00
(let ((link (org-gnus-article-link gcc nil id nil)) ;;newsgroup xarchive
Move link-related core functions out of "org.el" * contrib/lisp/org-wl.el (org-wl-store-link-message): * lisp/Makefile (clean-install): * lisp/ob-core.el (org-link-bracket-re): (org-babel-open-src-block-result): (org-babel-read-element): (org-babel-read-link): (org-babel-result-end): * lisp/ob-tangle.el (org-link-bracket-re): (org-babel-tangle-single-block): (org-link-analytic-bracket-re): (org-babel-detangle): (org-babel-tangle-jump-to-org): * lisp/ol.el: * lisp/org-agenda.el (org-agenda-get-some-entry-text): (org-diary): (org-agenda-format-item): (org-agenda-open-link): (org-agenda-switch-to): (org-agenda-to-appt): * lisp/org-bbdb.el (org-bbdb-store-link): * lisp/org-bibtex.el (org-bibtex-store-link): * lisp/org-capture.el (org-capture-fill-template): * lisp/org-clock.el (org-clocktable-write-default): (org-clock-get-table-data): * lisp/org-compat.el (org-doi-server-url): (org-email-link-description-format): (org-make-link-description-function): (org-from-is-user-regexp): (org-descriptive-links): (org-url-hexify-p): (org-context-in-file-links): (org-keep-stored-link-after-insertion): (org-display-internal-link-with-indirect-buffer): (org-confirm-shell-link-function): (org-confirm-shell-link-not-regexp): (org-confirm-elisp-link-function): (org-confirm-elisp-link-not-regexp): (org-file-complete-link): (org-email-link-description): (org-make-link-string): (org-store-link-props): (org-add-link-props): (org-make-link-regexps): (org-angle-link-re): (org-plain-link-re): (org-bracket-link-regexp): (org-bracket-link-analytic-regexp): (org-any-link-re): * lisp/org-docview.el (org-docview-store-link): (org-docview-complete-link): * lisp/org-element.el (org-element-link-parser): * lisp/org-eshell.el (org-eshell-store-link): * lisp/org-eww.el (org-eww-store-link): (org-eww-copy-for-org-mode): * lisp/org-footnote.el (org-footnote-next-reference-or-definition): * lisp/org-gnus.el (org-gnus-article-link): (org-gnus-store-link): * lisp/org-id.el (org-id-store-link): * lisp/org-info.el (org-info-store-link): * lisp/org-irc.el (org-irc-erc-store-link): * lisp/org-mhe.el (org-mhe-store-link): * lisp/org-pcomplete.el (pcomplete/org-mode/searchhead): * lisp/org-protocol.el (org-protocol-do-capture): * lisp/org-rmail.el (org-rmail-store-link): * lisp/org-w3m.el (org-w3m-store-link): (org-w3m-copy-for-org-mode):
2018-11-26 23:04:41 +00:00
(description (org-link-email-description)))
(org-link-add-props :link link :description description)
org-gnus: Small refactoring * lisp/org-gnus.el (org-gnus-store-link): Small refactoring.
2017-06-05 13:02:33 +00:00
link)))))))
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
New function: Open nntp: links with Gnus * org-gnus.el (org-gnus-open-nntp): New function.
2010-09-20 19:49:08 +00:00
(defun org-gnus-open-nntp (path)
"Follow the nntp: link specified by PATH."
(let* ((spec (split-string path "/"))
(server (split-string (nth 2 spec) "@"))
(group (nth 3 spec))
(article (nth 4 spec)))
(org-gnus-follow-link
(format "nntp+%s:%s" (or (cdr server) (car server)) group)
article)))
Move custom links to new tooling * contrib/lisp/ol-bookmark.el (org-bookmark-open): * contrib/lisp/ol-elisp-symbol.el (elisp-symbol-open): * contrib/lisp/ol-git-link.el (org-gitbare-open): (org-git-open): * contrib/lisp/ol-man.el (org-man-open): * contrib/lisp/ol-mew.el (org-mew-open): * contrib/lisp/ol-notmuch.el (org-notmuch-open): (org-notmuch-search-open): (org-notmuch-tree-open): * contrib/lisp/ol-vm.el (org-vm-open): (org-vm-imap-open): * contrib/lisp/ol-wl.el (org-wl-open): * contrib/lisp/org-mac-link.el (org-mac-together-item-open): (org-mac-addressbook-item-open): (org-mac-skim-open): (org-mac-acrobat-open): (org-mac-outlook-message-open): (org-mac-evernote-note-open): (org-devonthink-item-open): (org-mac-message-open): * contrib/lisp/org-mairix.el (org-mairix-open): * lisp/ol-bbdb.el (org-bbdb-export): (org-bbdb-open): * lisp/ol-bibtex.el (org-bibtex-open): * lisp/ol-docview.el (org-docview-open): * lisp/ol-eshell.el (org-eshell-open): * lisp/ol-eww.el ("eww"): * lisp/ol-gnus.el (org-gnus-open): * lisp/ol-info.el (org-info-open): * lisp/ol-irc.el (org-irc-visit): * lisp/ol-mhe.el (org-mhe-open): * lisp/ol-rmail.el ("rmail"): (org-rmail-open): * lisp/ol.el (org-link--open-doi): (org-link--open-elisp): (org-link--open-help): (org-link--open-shell): * lisp/org-id.el (org-id-open): * testing/lisp/test-ox.el (test-org-export/custom-protocol-maybe): Use new tooling. * doc/org-manual.org (Adding Hyperlink Types): Adapt example.
2020-02-17 10:28:50 +00:00
(defun org-gnus-open (path _)
Doc fixes by Philip Rooke <phil@yax.org.uk> A number of small changes. Mainly they are to pacify 'checkdoc-ispell' (if it seems appropriate) and to standardise the names of the packages you can link to from within Org-mode. I am using the package names as spelt or abbreviated in their own documentation (if I have been able to find it easily). Thus, for example, prefer MH-E over MHE, Rmail over RMAIL etc.
2008-03-21 16:10:23 +00:00
"Follow the Gnus message or folder link specified by PATH."
org-gnus: Tiny refactoring * lisp/org-gnus.el (org-gnus-open): Tiny refactoring.
2017-06-05 12:35:24 +00:00
(unless (string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" path)
(error "Error in Gnus link %S" path))
(let ((group (match-string-no-properties 1 path))
(article (match-string-no-properties 3 path)))
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
(org-gnus-follow-link group article)))
(defun org-gnus-follow-link (&optional group article)
"Follow a Gnus link to GROUP and ARTICLE."
(require 'gnus)
(funcall (cdr (assq 'gnus org-link-frame-setup)))
org-gnus: Remove outdated code * lisp/org-gnus.el (org-gnus-nnimap-query-article-no-from-file): Remove variable. * lisp/org-gnus.el (org-gnus-nnimap-cached-article-number): Remove function. (org-gnus-follow-link): Apply changes. Small refactoring. `org-gnus-nnimap-cached-article-number' has been removed from Gnus since 2010 and is not present in Emacs versions supported by Org.
2017-06-05 07:19:11 +00:00
(when gnus-other-frame-object (select-frame gnus-other-frame-object))
(let ((group (org-no-properties group))
(article (org-no-properties article)))
(cond
((and group article)
(gnus-activate-group group)
(condition-case nil
(let ((msg "Couldn't follow Gnus link. Summary couldn't be opened."))
(pcase (gnus-find-method-for-group group)
(`(nndoc . ,_)
(if (gnus-group-read-group t nil group)
(gnus-summary-goto-article article nil t)
(message msg)))
(_
(let ((articles 1)
group-opened)
(while (and (not group-opened)
org-gnus: Add note about integer overflow guard * lisp/org-gnus.el (org-gnus-follow-link): Add compatibility note to code that guards against integer overflow. Emacs's 7e294d55e1 (Remove some obsolete integer overflow handling, 2019-07-22) removes this, but we can't port that for compatibility reasons.
2019-07-24 03:10:09 +00:00
;; Stop on integer overflows. Note: We
;; can drop this once we require at least
;; Emacs 27, which supports bignums.
org-gnus: Remove outdated code * lisp/org-gnus.el (org-gnus-nnimap-query-article-no-from-file): Remove variable. * lisp/org-gnus.el (org-gnus-nnimap-cached-article-number): Remove function. (org-gnus-follow-link): Apply changes. Small refactoring. `org-gnus-nnimap-cached-article-number' has been removed from Gnus since 2010 and is not present in Emacs versions supported by Org.
2017-06-05 07:19:11 +00:00
(> articles 0))
(setq group-opened (gnus-group-read-group articles t group))
(setq articles (if (< articles 16)
(1+ articles)
(* articles 2))))
(if group-opened
Gnus: Handle nndoc for following links Patch by Thomas Morgan.
2010-04-04 05:52:57 +00:00
(gnus-summary-goto-article article nil t)
org-gnus: Remove outdated code * lisp/org-gnus.el (org-gnus-nnimap-query-article-no-from-file): Remove variable. * lisp/org-gnus.el (org-gnus-nnimap-cached-article-number): Remove function. (org-gnus-follow-link): Apply changes. Small refactoring. `org-gnus-nnimap-cached-article-number' has been removed from Gnus since 2010 and is not present in Emacs versions supported by Org.
2017-06-05 07:19:11 +00:00
(message msg))))))
(quit
(message "Couldn't follow Gnus link. The linked group is empty."))))
(group (gnus-group-jump-to-group group)))))
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
Make gnus links use message-id.
2008-10-29 08:54:15 +00:00
(defun org-gnus-no-new-news ()
Backport commit c1cacb0 from Emacs master branch * lisp/org-gnus.el (org-gnus-no-new-news): Prefer (substitute-command-keys "`\\[foo-command]'") to "`M-x foo-command'" in docstrings and the like. Avoid hard-coding "M-x command" in docstrings c1cacb09948928287bfc32745f2a92604d3291c4 Paul Eggert Fri Aug 21 14:09:47 2015 -0700
2015-08-22 20:51:38 +00:00
"Like `\\[gnus]' but doesn't check for new news."
org-gnus: Tiny refactoring * lisp/org-gnus.el (org-gnus-open): Tiny refactoring.
2017-06-05 12:35:24 +00:00
(cond ((gnus-alive-p) nil)
(org-gnus-no-server (gnus-no-server))
(t (gnus))))
Make gnus links use message-id.
2008-10-29 08:54:15 +00:00
Prefix link-related libraries filenames with "ol" * lisp/org.el (org-modules): Update provided symbols.
2019-03-02 00:01:32 +00:00
(provide 'ol-gnus)
Moved most of the linking code to separate files. This files are stil all loaded automatically, but the user can turn individual files off. Also, this makes maintaining the link stuff easier, because everything related to a specific link type is in one place.
2008-03-14 17:22:03 +00:00
Prefix link-related libraries filenames with "ol" * lisp/org.el (org-modules): Update provided symbols.
2019-03-02 00:01:32 +00:00
;;; ol-gnus.el ends here
Copy Permalink