45 |
;;; Code: |
;;; Code: |
46 |
|
|
47 |
(require 'cl) |
(require 'cl) |
48 |
|
(require 'update-changelog) ; for stitching |
49 |
|
|
50 |
|
;; outgoing |
51 |
|
|
52 |
(defvar patch-greeting "hello guile maintainers,\n\n" |
(defvar patch-greeting "hello guile maintainers,\n\n" |
53 |
"*String to insert at beginning of patch mail.") |
"*String to insert at beginning of patch mail.") |
98 |
(patch-changelog-skeleton) "\n\n\n" |
(patch-changelog-skeleton) "\n\n\n" |
99 |
(make-string 72 ?_) "\n"))) |
(make-string 72 ?_) "\n"))) |
100 |
|
|
101 |
|
;; incoming |
102 |
|
|
103 |
|
|
104 |
|
|
105 |
|
|
106 |
;;; patch.el ends here |
;;; patch.el ends here |