Parcourir la source

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

Carsten Dominik il y a 16 ans
Parent
commit
7cbf5ba34f
2 fichiers modifiés avec 1 ajouts et 5 suppressions
  1. 0 4
      lisp/org-gnus.el
  2. 1 1
      lisp/org.el

+ 0 - 4
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

+ 1 - 1
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)