Using null-device in smime.el

[Peter Cooper Jr.]

I don't know if anyone else uses Gnus on Emacs on Windows the way I
do, but one thing I always change when setting up a new Gnus
installation is that smime.el refers directly to /dev/null, which of
course doesn't exist on Windows. Windows does have a similar NUL
device, and it looks like the null-device variable contains the
correct null filename to use for the platform. The following patch
represents the change that I make:

--8<---------------cut here---------------start------------->8---
--- smime.el.orig       Sat Mar 01 17:03:36 2008
+++ smime.el    Wed Nov 19 09:06:48 2008
@@ -381,7 +381,7 @@
     (if smime-crl-check
        (add-to-list 'CAs smime-crl-check))
     (if (apply 'smime-call-openssl-region b e (list smime-details-buffer t)
-              "smime" "-verify" "-out" "/dev/null" CAs)
+              "smime" "-verify" "-out" null-device CAs)
        t
       (insert-buffer-substring smime-details-buffer)
       nil)))
@@ -393,7 +393,7 @@
 `smime-details-buffer'."
   (smime-new-details-buffer)
   (if (apply 'smime-call-openssl-region b e (list smime-details-buffer t)
-            "smime" "-verify" "-noverify" "-out" '("/dev/null"))
+            "smime" "-verify" "-noverify" "-out" (list null-device))
       t
     (insert-buffer-substring smime-details-buffer)
     nil))
--8<---------------cut here---------------end--------------->8---

I just thought that this might be useful to somebody else, and perhaps
the change should be made in the actual codebase.

-- 
Peter C.