Problem with latest snapshot

[Gregory Chernov <greg@visiontech-dml.com>]

Hi, 

I've found couple of problems with latest snapshot
(gnus-CURRENT-20001217).

1. Symbol's function definition is void: charsetp
   I'm using xemacs without mule and charsetp function is not defined.
   For now I can live with simple workaround:
   (defun charsetp (&optional var) nil)


2. Strange problem with gnus-mime-save-part-and-strip.
   I used this function on some message with gif image
   and everything worked OK. Problems started when I
   tried to look on the results. 

   Opening message:

   [1. message/external-body; Jerusalem.gif] ...

   Clicking on this line:

   [1. message/external-body; Jerusalem.gif]

   [2. image/gif]...

   Then I've clicked couple of times on these lines
   closing and opening image. This messed up something.
   Now, I cannot reopen the message with g,
   cannot close group. I get error message:

   (wrong-type-argument listp "~/Jerusalem.gif")

   Lisp backtrace:

     mm-remove-part((name . "~/Jerusalem.gif"))
  mm-destroy-part((name . "~/Jerusalem.gif"))
  mm-destroy-parts(("message/external-body" (name . "~/Jerusalem.gif") (access-type . "LOCAL-FILE")))
  mm-destroy-parts(((#<killed buffer> ("image/gif") binary nil nil nil #<glyph (buffer) #<image-specifier global=... fallback=... 0x2e8e>0x2e8d> "<x0snnn8d58.fsf@visiontech-dml.com>") #<buffer " *mm*"> ("message/external-body" (name . "~/Jerusalem.gif") (access-type . "LOCAL-FILE")) nil nil ("attachment" (filename . "Jerusalem (1).gif")) nil (#<killed buffer> ("image/gif") binary nil nil nil #<glyph (buffer) #<image-specifier global=... fallback=... 0x2e8e>0x2e8d> "<x0snnn8d58.fsf@visiontech-dml.com>") nil))
  #<compiled-function (&optional temporary) "...(428)" [gnus-set-global-variables gnus-article-buffer buffer get-buffer buffer-name mm-destroy-parts gnus-article-mime-handles nil gnus-article-mime-handle-alist gnus-kill-save-kill-buffer gnus-async-halt-prefetch gnus-newsgroup-name group gnus-group-quit-config quit-config major-mode mode group-point buf gnus-newsgroup-adaptive gnus-score-adaptive gnus-use-scoring gnus-score-save gnus-run-hooks gnus-summary-prepare-exit-hook gnus-single-article-buffer gnus-original-article-buffer kill-buffer gnus-article-current gnus-use-cache gnus-cache-possibly-remove-articles gnus-cache-save-buffers gnus-async-prefetch-remove-group gnus-suppress-duplicates gnus-dup-enter-articles gnus-use-trees gnus-tree-close gnus-cache-write-active nnmail-purge-split-history gname string-match "^[^:]+:" 0 gnus-exit-group-hook gnus-summary-update-info gnus-close-group gnus-group-buffer gnus-group-jump-to-group gnus-summary-exit-hook gnus-group-group-name .!
 
..] 5 ("/Design/greg/emacs-progs/gnus-CURRENT-20001217/lisp/gnus-sum.elc" . 153192) nil>()
  call-interactively(gnus-summary-exit)