diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-12-18 23:07:55 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-12-18 23:20:26 -0700 |
| commit | 27fd09aaa26563f0c8f0b6fc6481cc646015e25c (patch) | |
| tree | 5e39e4458f771237f24412598097af86fbe80206 | |
| parent | 1fe052ae27003e43bf102ceeec019f69288746d8 (diff) | |
| download | mailscripts-27fd09aaa26563f0c8f0b6fc6481cc646015e25c.tar.gz | |
mailscripts.el: add declarations to fix byte compilation warnings
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | debian/changelog | 1 | ||||
| -rw-r--r-- | mailscripts.el | 12 |
2 files changed, 13 insertions, 0 deletions
diff --git a/debian/changelog b/debian/changelog index e82ae79..5aea66f 100644 --- a/debian/changelog +++ b/debian/changelog @@ -5,6 +5,7 @@ mailscripts (28-1) UNRELEASED; urgency=medium - new DWIM wrapper command: mailscripts-prepare-patch - rewrite short description and add a brief commentary - move the mailscripts customisation group into the mail group + - add declarations to fix byte compilation warnings - fix usage of cl-case in an internal function. * debian/control: update Description: for elpa-mailscripts. Use the new short description and commentary from mailscripts.el. diff --git a/mailscripts.el b/mailscripts.el index 872414a..e255aec 100644 --- a/mailscripts.el +++ b/mailscripts.el @@ -279,6 +279,14 @@ See also the interactive wrapper command `mailscripts-prepare-patch'." (notmuch-user-agent (mailscripts--gfp-drafts-notmuch args)) (t (user-error "Unsupported mail-user-agent `%s'" mail-user-agent))))) +(declare-function gnus-summary-header "gnus-score") +(declare-function gnus-summary-goto-article "gnus-sum") +(declare-function gnus-summary-copy-article "gnus-sum") +(declare-function gnus-summary-exit-no-update "gnus-sum") +(declare-function gnus-uu-mark-buffer "gnus-uu") +(declare-function gnus-group-read-group "gnus-group") +(declare-function gnus-group-read-ephemeral-group "gnus-group") + (defun mailscripts--gfp-drafts-gnus (args) (let* ((temp (make-temp-file "patches")) (group (concat "nndoc+ephemeral:" temp)) @@ -338,6 +346,10 @@ See also the interactive wrapper command `mailscripts-prepare-patch'." (concat mailscripts-extract-patches-branch-prefix branch) branch)))))) +(defvar projectile-known-projects) +(declare-function project-prompt-project-dir "project") +(declare-function projectile-completing-read "projectile") + (defun mailscripts--project-repo-and-branch (f &rest args) (let ((repo (cl-case mailscripts-project-library (project |