Import Oort Gnus v0.14.

[elisp/gnus.git-] / lisp / sieve.el

diff --git a/lisp/sieve.el b/lisp/sieve.el
index f41fa7c..edfd385 100644 (file)
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -371,6 +371,12 @@ Server  : " server ":" (or port "2000") "
            (message (concat "Sieve upload done.  Use `C-c RET' to manage scripts."))
          (message "Sieve upload failed: %s" (nth 2 err)))))))
 
+;;;###autoload
+(defun sieve-upload-and-bury (&optional name)
+  (interactive)
+  (sieve-upload name)
+  (bury-buffer))
+
 (provide 'sieve)
 
 ;; sieve.el ends here