ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleanup errors resulting from sloppy patching in org-gnus.el.

This commit is contained in:
Carsten Dominik 2008-11-20 07:52:55 +01:00
parent 8d92d2f08d
commit 7cbf5ba34f
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-gnus.el
View File

@ -64,8 +64,6 @@ negates this setting for the duration of the command."
;; Implementation ;; Implementation
(defun org-gnus-group-link (group) (defun org-gnus-group-link (group)
(debug)
(let ((unprefixed-group (replace-regexp-in-string "^[^:]+:" "" group))) (let ((unprefixed-group (replace-regexp-in-string "^[^:]+:" "" group)))
(if (and (string-match "^nntp" group) ;; Only for nntp groups (if (and (string-match "^nntp" group) ;; Only for nntp groups
(org-xor current-prefix-arg (org-xor current-prefix-arg
@ -107,7 +105,6 @@ negates this setting for the duration of the command."
((memq major-mode '(gnus-summary-mode gnus-article-mode)) ((memq major-mode '(gnus-summary-mode gnus-article-mode))
(and (eq major-mode 'gnus-summary-mode) (gnus-summary-show-article)) (and (eq major-mode 'gnus-summary-mode) (gnus-summary-show-article))
(let* ((group gnus-newsgroup-name) (let* ((group gnus-newsgroup-name)
(header (with-current-buffer gnus-article-buffer (header (with-current-buffer gnus-article-buffer
(gnus-summary-toggle-header 1) (gnus-summary-toggle-header 1)
(goto-char (point-min)) (goto-char (point-min))
@ -118,7 +115,6 @@ negates this setting for the duration of the command."
(to (mail-header 'to header)) (to (mail-header 'to header))
(newsgroups (mail-header 'newsgroups header)) (newsgroups (mail-header 'newsgroups header))
(x-no-archive (mail-header 'x-no-archive header)) (x-no-archive (mail-header 'x-no-archive header))
(subject (gnus-summary-subject-string)) (subject (gnus-summary-subject-string))
desc link) desc link)
(org-store-link-props :type "gnus" :from from :subject subject (org-store-link-props :type "gnus" :from from :subject subject

2
lisp/org.el
View File

@ -6084,7 +6084,7 @@ This link is added to `org-stored-links' and can later be inserted
into an org-buffer with \\[org-insert-link]. into an org-buffer with \\[org-insert-link].
For some link types, a prefix arg is interpreted: For some link types, a prefix arg is interpreted:
For links to usenet articles, arg negates `org-usenet-links-prefer-google'. For links to usenet articles, arg negates `org-gnus-prefere-web-links'.
For file links, arg negates `org-context-in-file-links'." For file links, arg negates `org-context-in-file-links'."
(interactive "P") (interactive "P")
(org-load-modules-maybe) (org-load-modules-maybe)