瀏覽代碼

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

* org-gnus.el (org-gnus-follow-link): Minor code cleanup.
Bastien Guerry 11 年之前
父節點
當前提交
4039d6c5b4
共有 1 個文件被更改,包括 2 次插入4 次删除
  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