Quellcode durchsuchen

org-gnus.el (org-gnus-follow-link): Minor code cleanup

* org-gnus.el (org-gnus-follow-link): Minor code cleanup.
Bastien Guerry vor 10 Jahren
Ursprung
Commit
4039d6c5b4
1 geänderte Dateien mit 2 neuen und 4 gelöschten Zeilen
  1. 2 4
      lisp/org-gnus.el

+ 2 - 4
lisp/org-gnus.el

@@ -249,10 +249,8 @@ If `org-store-link' was called with a prefix arg the meaning of
   (require 'gnus)
   (funcall (cdr (assq 'gnus org-link-frame-setup)))
   (if gnus-other-frame-object (select-frame gnus-other-frame-object))
-  (when group
-    (setq group (org-no-properties group)))
-  (when article
-    (setq article (org-no-properties article)))
+  (setq group (org-no-properties group))
+  (setq article (org-no-properties article))
   (cond ((and group article)
 	 (gnus-activate-group group)
 	 (condition-case nil