[nongnu] elpa/vc-fossil dffd034 069/111: Pipe commit message through log-edit-extract-headers.

[ELPA Syncer]

branch: elpa/vc-fossil
commit dffd03414e37123cae892ebe777d67596ad371c2
Author: fifr <fifr>
Commit: fifr <fifr>

    Pipe commit message through log-edit-extract-headers.
    
    See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18954
---
 vc/el/vc-fossil.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index b3558aa..b3cbb77 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -211,10 +211,16 @@ If `files` is nil return the status for all files."
 (defun vc-fossil-unregister (file)
   (vc-fossil-command nil 0 file "rm"))
 
+(declare-function log-edit-extract-headers "log-edit" (headers string))
 
 (defun vc-fossil-checkin (files rev comment)
-  (apply 'vc-fossil-command nil 0 files "commit" "-m" comment
-         (vc-switches 'Fossil 'checkin)))
+  (apply 'vc-fossil-command nil 0 files
+         (nconc (list "commit" "-m")
+                (log-edit-extract-headers
+                 `(("Author" . "--user-override")
+                   ("Date" . "--date-override"))
+                 comment)
+                (vc-switches 'Fossil 'checkin))))
 
 (defun vc-fossil-find-revision (file rev buffer)
   (apply #'vc-fossil-command buffer 0 file