I was going to send directly to Tim, but it appears that TIm’s Mail address 
needs to be spoofed by Google Groups.

Below is the text of an apple script that  hides the preview pane in Classic 
view on  It starts with a use statement that tells Apple Script to use system 
events library. This library requires that accessibility permissions be given 
to the script, so the best thing to do is create a new file in Script Editor 
and then save it as an app.

There are three functions “run” the main routine,  that  adjusts the scroller 
position.
isMessageViewer that finds the splitter to adjust.
GetMessageViewer which looks for a primary window in mail and creates one if 
there is not one.

use sysEvents : application "System Events"

on run
        tell application "Mail" to activate
        
        set ProperWindow to isMessageViewer()
        if ProperWindow is equal to false then return false
        -- Splitters have Maximum Value and minimum values that specify the 
rage of the value field. 
        set maxvalue to maximum value of ProperWindow
        set value of ProperWindow to maxvalue
end run

on isMessageViewer()
        local viewer
        set viewer to getMessageViewer with MoveToFront
        -- We won't actually use this returned window, but get it from System 
Events window 1 instead .
        -- Get the  splitter between message list and message details.
        -- The splitter groups have three elements with the middle UI element a 
splitter.
        set PrimarySplitter to splitter 1 of splitter group 1 of splitter group 
1 of window 1 of process "Mail"
        log {class, maximum value} of PrimarySplitter
        return PrimarySplitter
end isMessageViewer

to getMessageViewer given MoveToFront:mtf
        local viewer, viewerCount
        log (mtf)
        tell application "Mail"
                set viewerCount to count of message viewers
                if viewerCount is equal to 0 then
                        set viewer to make new message viewer
                else
                        set viewer to message viewer 1
                end if
                
                if mtf then
                        activate application “Mail" -- Make sure Mail is active 
 
                        set index of window of viewer to 1 -- Make selected 
viewer window Frontmost 
                end if
                return viewer
        end tell
        return viewer
end getMessageViewer
 

-- 
The following information is important for all members of the Mac Visionaries 
list.

If you have any questions or concerns about the running of this list, or if you 
feel that a member's post is inappropriate, please contact the owners or 
moderators directly rather than posting on the list itself.

Your Mac Visionaries list moderator is Mark Taylor.  You can reach mark at:  
[email protected] and your owner is Cara Quinn - you can reach Cara at 
[email protected]

The archives for this list can be searched at:
http://www.mail-archive.com/[email protected]/
--- 
You received this message because you are subscribed to the Google Groups 
"MacVisionaries" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To view this discussion on the web visit 
https://groups.google.com/d/msgid/macvisionaries/9C392B18-3669-4C35-A909-1299E2BB0EC2%40gmail.com.

Reply via email to