sieveshell segfaults on sasl configuration error

[Florian Hars]

Something like this might make life easier for admins who still
have problems understanding what the first S in SASL is supposed to
be referring to:

--- perl/sieve/managesieve/managesieve.c.2.1.4  Thu May 16 17:06:30 2002
+++ perl/sieve/managesieve/managesieve.c        Fri May 17 08:46:02 2002
@@ -281,6 +281,12 @@
 
   mechlist=read_capability(obj);
 
+  if (mechlist == NULL) {
+     /* Some useful error message complaining about missing SASL
+      * methods.
+      */
+  }
+
   mlist = (char*) xstrdup(mechlist);
   if(!mlist) XSRETURN_UNDEF;

Yours, Florian Hars.