diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-08-05 12:25:45 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-08-05 12:25:45 -0400 |
| commit | ae7693ca78272d3dc577d71e55d7f9c2eed9e695 (patch) | |
| tree | 6912242153f0e22b8cf899544f02269fc93d15dd /rt-liberation-gnus.el | |
| parent | 05beb9f354ed1f4600b18d88954a485536b3f8f9 (diff) | |
Adjust copyright lines; silence compiler warnings
* .gitignore: New file.
* rt-liberation-gnus.el (rt-liber-gnus-with-ticket-buffer): Move before use.
* rt-liberation-report.el: Require `rt-liberation` since it needs one
of its macros.
* rt-liberation-rest.el: Silence some compiler warnings.
(rt-liber-rest-handle-response): Use the arg instead of dynamic scoping.
* rt-liberation.el (rt-liber-reduce, rt-liber-create-tickets-string):
Fix CL's `reduce` to cl-lib's `cl-reduce`.
(rt-liber-ticket-base-retriever-parser-f): Remove stray silent backslash.
Fix CL's `copy-seq` to builtin `copy-sequence`.
(rt-liber-sort-ticket-list): Fix CL's `copy-seq` to builtin `copy-sequence`.
(rt-liber-command-set-status-deleted): Fix typo.
Diffstat (limited to 'rt-liberation-gnus.el')
| -rw-r--r-- | rt-liberation-gnus.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/rt-liberation-gnus.el b/rt-liberation-gnus.el index 3622a82..eb0b262 100644 --- a/rt-liberation-gnus.el +++ b/rt-liberation-gnus.el @@ -1,6 +1,6 @@ ;;; rt-liberation-gnus.el --- Gnus integration for rt-liberation -;; Copyright (C) 2009, 2012, 2014 Free Software Foundation +;; Copyright (C) 2009-2014 Free Software Foundation, Inc. ;; ;; Authors: Yoni Rabkin <yrk@gnu.org> ;; @@ -115,6 +115,12 @@ OPTIONS association list of options. (save-excursion (insert message-text)))) +(defmacro rt-liber-gnus-with-ticket-buffer (&rest body) + `(progn + (when (not (boundp 'rt-liber-ticket-local)) + (error "rt-liberation ticket view buffer not present")) + ,@body)) + (defun rt-liber-gnus-content-to-string () "Return the current content section as a string" (rt-liber-gnus-with-ticket-buffer @@ -143,12 +149,6 @@ OPTIONS association list of options. (setq text (buffer-substring (point-min) (point-max)))) text)))) -(defmacro rt-liber-gnus-with-ticket-buffer (&rest body) - `(progn - (when (not (boundp 'rt-liber-ticket-local)) - (error "rt-liberation ticket view buffer not present")) - ,@body)) - (defun rt-liber-gnus-compose-reply-to-requestor () (interactive) (rt-liber-gnus-with-ticket-buffer |