浏览代码

Merge branch 'maint'

Nicolas Goaziou 10 年之前
父节点
当前提交
98fdb642fc
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-mobile.el

+ 2 - 1
lisp/org-mobile.el

@@ -499,7 +499,8 @@ agenda view showing the flagged items."
 	    (org-mobile-encrypt-and-move file target-path)
 	  (copy-file file target-path 'ok-if-exists))
 	(setq check (shell-command-to-string
-		     (concat org-mobile-checksum-binary " "
+		     (concat (shell-quote-argument org-mobile-checksum-binary)
+			     " "
 			     (shell-quote-argument (expand-file-name file)))))
 	(when (string-match "[a-fA-F0-9]\\{30,40\\}" check)
 	  (push (cons link-name (match-string 0 check))