From 27fd09aaa26563f0c8f0b6fc6481cc646015e25c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 18 Dec 2022 23:07:55 -0700 Subject: mailscripts.el: add declarations to fix byte compilation warnings Signed-off-by: Sean Whitton --- debian/changelog | 1 + mailscripts.el | 12 ++++++++++++ 2 files changed, 13 insertions(+) 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 -- cgit v1.2.3