(list "--all" "-m" comment)

           (list "--all" "-m"
                 (replace-regexp-in-string "^Summary: " "" comment))

(defun vc-pijul-print-log
    (files buffer &optional shortlog start-revision limit)
  "Print logs for FILES into BUFFER.
SHORTLOG non-nil means to only show short versions of logs.  It
is currently broken.
LIMIT non-nil and number means to only show that many logs.

START-REVISION is not currently supported."
  (let ((args
         (append
          (cond ((integerp limit)
                 (list "--limit" (format "%d" limit))))
          (cons "--" files))))
    (vc-setup-buffer buffer)
    (with-current-buffer buffer
      (let ((inhibit-read-only t))
        (apply #'vc-do-command
               buffer
               'async
               vc-pijul-program
               nil
               (cons "log" args))))))