--- a/lisp/w3/mm.el	Mon Aug 13 09:43:39 2007 +0200
+++ b/lisp/w3/mm.el	Mon Aug 13 09:44:42 2007 +0200
@@ -720,6 +720,7 @@
   (let* ((test-info   (assoc "test"   viewer-info))
 	 (test (cdr test-info))
 	 (viewer (cdr (assoc "viewer" viewer-info)))
+	 (default-directory (expand-file-name "~/"))
 	 status
 	 parsed-test
 	)
@@ -1177,7 +1178,7 @@
 		(if (stringp cmd)
 		    (shell-command-on-region st nd cmd t)
 		  (funcall cmd st nd))
-		(set-marker nd (point))))
+		(or (eq cmd 'ignore) (set-marker nd (point)))))
 	  (write-region st nd fname nil 5)
 	  (delete-region st nd)
 	  (setq results (cons
@@ -1247,7 +1248,8 @@
 	     (* 16 (mm-hex-char-to-integer 
 		    (char-after (1+ (match-beginning 0)))))
 	     (mm-hex-char-to-integer
-	      (char-after (1- (match-end 0))))))))))))
+	      (char-after (1- (match-end 0))))))))))
+    (goto-char (point-max))))
 
 ;; Taken from hexl.el.
 (defun mm-hex-char-to-integer (character)