git-email: Divide file into pages.

* git-email.el: Add page separators.

Signed-off-by: Xinglu Chen <public@yoctocell.xyz>

1 files changed, 11 insertions, 4 deletions

diff --git a/git-email.el b/git-email.el
index 485d433..487429a 100644
--- a/git-email.el
+++ b/git-email.el
@@ -40,7 +40,9 @@
 (require 'message)
 (require 'cl-lib)
 
+
 ;;;; Customization options
+
 (defgroup git-email nil
   "Work with git and email."
   :group 'convenience)
@@ -156,7 +158,7 @@ If none of the functions return non-nil value,
   :package-version '(git-email . "0.2.0"))
 
 
-;;;; Remove Compiler warnings
+;; Remove Compiler warnings
 (declare-function dired-get-filename "dired.el")
 (declare-function dired-map-over-marks "dired.el")
 (declare-function ibuffer-get-marked-buffers "ibuffer.el")
@@ -164,8 +166,9 @@ If none of the functions return non-nil value,
 (declare-function vc-dir-current-file "vc-dir.el")
 (declare-function log-view-current-entry "log-view.el")
 
-
+
 ;;;; Get files to send
+
 (defun git-email--check-file (file)
   "Check if FILE is a patch."
   (if (and (file-readable-p file)
@@ -228,8 +231,9 @@ Falls back to `default-directory'."
                  default-directory)))
     dir))
 
-
+
 ;;;; Get contents from patch
+
 (defun git-email--extract-header (header)
   "Extract HEADER from the current buffer."
   (goto-char (point-min))
@@ -363,8 +367,9 @@ them into the message buffer."
               (re-search-backward "\\*\\*\\* SUBJECT HERE \\*\\*\\*" nil t))
       (kill-line))))
 
-
+
 ;;;; Format patches
+
 (defun git-email--minibuffer-get-revision ()
   "Let the user choose a git revision from the minibuffer."
   (interactive)
@@ -437,7 +442,9 @@ default behavior is to delete them after sending the message."
       (mapc #'delete-file files))))
 
 
+
 ;;;; Operate on emails
+
 (defun git-email-message-buffer-greaterp (old new)
   "Compare the number in the buffer name of OLD with NEW"
   (cl-flet ((regexp (name)