瀏覽代碼

Don't use next-line in lisp code if possible

Carsten Dominik 16 年之前
父節點
當前提交
79b70a7e66
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-gnus.el

+ 1 - 1
lisp/org-gnus.el

@@ -132,7 +132,7 @@ If `org-store-link' was called with a prefix arg the meaning of
 		     ;; "From" followed by a space, which cannot be parsed as
 		     ;; header line, so we skip it.
                      (when (looking-at "From ")
-                       (next-line))
+		       (beginning-of-line 2))
 		     (mail-header-extract-no-properties)))
 	   (from (mail-header 'from header))
 	   (message-id (org-remove-angle-brackets