From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Thu, 23 Jan 2003 22:45:13 +0000 (+0000)
Subject: Indent.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=eaa0741e383e1da18abb63b8577a3aed45f5312b;p=gnus

Indent.
---

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index c1ca4dc97..41da38467 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1290,9 +1290,9 @@ If RECURSIVE, search recursively."
 
 (defsubst mm-set-handle-multipart-parameter (handle parameter value)
   ;; HANDLE could be a CTL.
-  (if handle
-      (put-text-property 0 (length (car handle)) parameter value
-			 (car handle))))
+  (when handle
+    (put-text-property 0 (length (car handle)) parameter value
+		       (car handle))))
 
 (defun mm-possibly-verify-or-decrypt (parts ctl)
   (let ((type (car ctl))