Import Oort Gnus v0.16.

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

diff --git a/lisp/sieve.el b/lisp/sieve.el
index edfd385..ad62856 100644 (file)
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -1,5 +1,5 @@
 ;;; sieve.el --- Utilities to manage sieve scripts
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org>
 
@@ -368,8 +368,10 @@ Server  : " server ":" (or port "2000") "
       (with-current-buffer (get-buffer sieve-buffer)
        (setq err (sieve-manage-putscript name script sieve-manage-buffer))
        (if (sieve-manage-ok-p err)
-           (message (concat "Sieve upload done.  Use `C-c RET' to manage scripts."))
-         (message "Sieve upload failed: %s" (nth 2 err)))))))
+           (message (concat
+                     "Sieve upload done.  Use `C-c RET' to manage scripts."))
+         (message "Sieve upload failed: %s"
+                  (replace-regexp-in-string "[\n\r\t]+" " " (nth 2 err))))))))
 
 ;;;###autoload
 (defun sieve-upload-and-bury (&optional name)