diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index fc672683f..3f0ca99d8 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -64,8 +64,6 @@ negates this setting for the duration of the command." ;; Implementation (defun org-gnus-group-link (group) - (debug) - (let ((unprefixed-group (replace-regexp-in-string "^[^:]+:" "" group))) (if (and (string-match "^nntp" group) ;; Only for nntp groups (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)) (and (eq major-mode 'gnus-summary-mode) (gnus-summary-show-article)) (let* ((group gnus-newsgroup-name) - (header (with-current-buffer gnus-article-buffer (gnus-summary-toggle-header 1) (goto-char (point-min)) @@ -118,7 +115,6 @@ negates this setting for the duration of the command." (to (mail-header 'to header)) (newsgroups (mail-header 'newsgroups header)) (x-no-archive (mail-header 'x-no-archive header)) - (subject (gnus-summary-subject-string)) desc link) (org-store-link-props :type "gnus" :from from :subject subject diff --git a/lisp/org.el b/lisp/org.el index cfe991bf6..7df6824b4 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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]. 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'." (interactive "P") (org-load-modules-maybe)